如何使用renderText将文件打印到Shiny

Question

我在这里遗漏了一些东西，因为图片没有显示。

感谢。

shinyServer(function(input, output) {
  src = "einstein.jpg"
  print(file.exists(src))
  out = '<img src="einstein.jpg" style=width:304px;height:228px;>'
  output$text3<-renderText(out)

  })

shinyUI(fluidPage(

  htmlOutput("text3")

))

Answer 1

如果您将图片einstein.jpg放在应用的img/子文件夹中，则可以使用addResourcePath来访问它：

library(shiny)
shinyApp(ui=fluidPage(htmlOutput("text3")),
         server=(function(input, output) {
           addResourcePath("foo", "img")  
           out = '<img src="/foo/einstein.jpg" style=width:304px;height:228px;>'
           output$text3<-renderText(out)
         }))