Блестящая шкура HTML

Question

Я пытаюсь выяснить, как добавить текст и изображение в мое приложение Shiny без отображения кода HTML на вкладке моего браузера.

Код, который я нашел и который работает разместить изображение и текст следующим образом (используется в моем сценарии ui.R):

titlePanel(div("My title here", img(src = "Image.jpeg", height = 80, width = 175, align = "right")))

Когда я использую это, приложение Shiny загружается с текстом слева и изображением справа, которое желаемый результат; однако, когда я открываю в браузере (протестированном с Safari и Chrome), вкладка моего браузера показывает

"<div> My title here <img src = "Image.jpeg" height="80" width="175"..."

Есть ли какой-нибудь способ в Shiny, чтобы и мой заголовок, и мое изображение были в верхней части, titlePanel, а на вкладке браузера отображается только заголовок?

Answer 1

Используйте аргумент windowTitle titlePanel, чтобы присвоить заголовок вкладке, когда страница открыта. Значение по умолчанию - title, поэтому заголовок вкладки содержит код HTML, который вы используете в titlePanel, и передается в виде текста заголовку вкладки.

library(shiny)

ui <- fluidPage(
  titlePanel(div("My title here", img(src = "Image.jpeg", height = 80, width = 175, align = "right")), 
             windowTitle = "No HTML in Tab Title")
)
server <- function(input, output, session) {

}

shinyApp(ui, server)