Я использую следующий код, чтобы попытаться показать изображения в таблице данных. Я не могу видеть локальные изображения в основном потому, что я явно не понимаю пути с блестящими.
library(shiny)
library(DT)
library(shinydashboard)
library(here)
ui <- dashboardPage(
dashboardHeader(),
dashboardSidebar(DT::dataTableOutput("test")),
dashboardBody()
)
server <- shinyServer(function(input, output, session) {
dat <- data.frame(
country = c('China', 'Belgium'),
flag = c('<img src="http://upload.wikimedia.org/wikipedia/commons/thumb/f/fa/Flag_of_the_People%27s_Republic_of_China.svg/200px-Flag_of_the_People%27s_Republic_of_China.svg.png" height="52"></img>',
'<img src="/www/EndoMinerLogo.png" height="52"></img>'
)
)
output$test <- DT::renderDataTable({ DT::datatable(dat, escape = F) })
})
shinyApp(ui=ui, server=server)
Мой блестящий файл приложения находится в той же папке, что и папка www. (и я пробовал и /www и без "/"
Что я делаю неправильно?