如何将整个图像位置放在有光泽的包装的tags $ img中？

Question

标记$ img的以下代码是：

• 正在工作...当图像存储在“ www”文件夹中并且src =“ Rlogo.png”
• 不起作用...给出图像的整个路径时

我需要将整个位置放在一个闪亮的应用程序中，该应用程序将在命令提示符下运行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)