d'insertion dans renderDataTable pour l'application brillante

Question

Voici la structure du répertoire:

app.R 
www/Belgium.png 

et le code app.R:

library(shiny) 
    library(DT) 
    library(shinydashboard) 

    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="Belgium.png" height="52"></img>' 
     ) 
    ) 
     output$test <- DT::renderDataTable({ DT::datatable(dat, escape = F) }) 
    }) 

    app <- shinyApp(ui=ui, server=server) 

    app 

Comme vous pouvez le voir dans le résultat, la première image (drapeau de la Chine pris sur le web) est bien représenté mais la deuxième image (drapeau de la Belgique hébergé sur mon système de fichiers local sous www/) n'est pas montrée.

J'ai essayé de comprendre ce qui se passait mais je n'ai pas eu de chance jusqu'à présent ... Pourquoi est-ce que je ne peux pas voir l'image sur mon système de fichiers local?

Answer 1

En créant un dossier 'www' et en plaçant le 'Belgium.jpg' dans celui-ci fonctionne.

Obtenir la sortie