如何使用renderText将文件打印为闪亮

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) 
     }))