r - 如何将整个图像位置放在 Shiny 包的 tags$img 中？

Question

tags$img 的以下代码是:

工作...当图像存储在“www”文件夹中并且 src = "Rlogo.png"

不起作用...当给出图像的整个路径时

我需要将整个位置放在我的一个 Shiny 的应用程序中，其中 app.R 文件将从命令提示符运行。请帮忙谢谢..

library(shiny)

ui <- fluidPage(
  box(
    tags$img(height = 100, width = 100,src = "Rlogo.png"),
    tags$img(height = 100, width = 100,src = "E:/myApp/www/Rlogo.png")
  )
)

server <- function(input, output, session) {

}

shinyApp(ui, server)

Answer 1

使用 imageOutput而不是 tags$img :

library(shiny)

ui <- fluidPage(
    box(
        tags$img(height = 100, width = 100,src = "Rlogo.png"),
        imageOutput('image')
    )
)

server <- function(input, output, session) {
    output$image <- renderImage({
            list(src = "E:/myApp/www/Rlogo.png",
                 alt = "This is alternate text"
            )
        }, deleteFile = TRUE)
}

shinyApp(ui, server)