插入图像的光泽应用

这里的目录结构：插入图像的光泽应用

app.R 
www/Belgium.png

和代码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

正如你可以在结果中看到，第一个图像（来自网络的中国国旗）已经有很好的代表，但第二张图片（我的本地文件系统托管的比利时国旗www/）没有显示。