在renderDataTable中插入图像，用于闪亮的app

Question

这是目录结构：

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/下托管在我的本地文件系统上）未显示。

我一直在拉着我的头发试图了解到底发生了什么但是到目前为止没有运气...为什么闪亮无法在我的本地文件系统上看到图片？

Answer 1

通过创建文件夹＆＃39; www＆＃39;放置＆＃39; Belgium.jpg＆＃39;在它工作。

获取输出