Это основано на ответе @Gohn Paul's , но мне кажется более простым. Сначала поместите название своей страницы в переменную, так как мы будем использовать ее дважды - в качестве названия окна и на нашей странице:
PAGE_TITLE <- "My great title"
Ниже в вашей жидкостной странице:
titlePanel(windowTitle = PAGE_TITLE,
title =
div(
img(
src = "my_logo.png",
height = 100,
width = 100,
style = "margin:10px 10px"
),
PAGE_TITLE
)
),