在 R Shiny 中显示本地存储的图像

Question

我花了相当多的时间试图解决这个问题。 当然，在这里分享我的问题之前我已经做了功课。

特别是我没有成功咨询过：

1. local image in shiny app without img(src())?
2. Shiny can not display Image locally
3. adding local image with html to a Shiny app
4. R Shiny img() on UI side does not render the image
5. Display images from web in shiny R
6. Image failing to display in R shiny
7. Embedding Image in Shiny App
8. How to place an image in an R Shiny title

所以我确实在 RStudio 项目文件的根目录下创建了一个“www”文件夹，我在其中放置了一些图片。

这些图片在 titlePanel 中使用，但也被应用程序调用的主 htmlwidget 使用。

将这些图片存储在本地对我来说至关重要，因为该应用程序可能在安全的环境中运行而无需访问 Internet。

我尝试了这些图片的相对路径和绝对路径：没有显示图片。

然后我注意到某种不一致：只有当我通过 RStudio 中的常规命令“运行选定行”运行应用程序时才会遇到此问题。 另一方面，当我通过专用命令“运行应用程序”（在 RStudio 的右上角，绿色箭头）运行应用程序时，我不再有这个问题，图片显示很好（但输入数据是以某种方式进行了检查，并且在启动应用程序之前需要很长时间）。

最初我认为显示本地图像比使用存储在 Internet 上的远程图像要容易得多，但似乎恰恰相反。

因此我的问题是：

1. 您知道为什么我们可以观察到这种差异（这对我来说是不一致的）吗？
2. 您知道我怎样才能继续使用常规执行命令（“运行选定的行”）吗？

最好的问候，

奥利维尔

Answer 1

我没有具体的答案，但 Hadley 在“掌握闪亮”一书中的“图形”一章下展示了如何显示本地存储的图像的示例。这本书正在开发中，应该很快就会发布，我将粘贴该章节的链接：

Graphics chapter

示例位于图像部分。

HTH

Answer 2

管理目录可能很棘手。

您可以使用here 包使处理R 项目中的目录变得更加容易，请参阅Ode to the here package。

打开项目后，www 中的图片可以很容易地被访问：

here::here('www/myimage.jpg')

这也适用于采购应用程序或脚本。

Answer 3

对我来说，在 RStudio 中通过 Run Selected Line(s) 运行应用程序时，以下内容也适用：

library(shiny)

# create some local images
if(!dir.exists("myimages")){
  dir.create("myimages")
}

myPlotPaths <- paste0("myimages/myplot", seq_len(3), ".png")

for (myPlot in myPlotPaths) {
  png(file = myPlot, bg = "transparent")
  plot(runif(10))
  dev.off() 
}

myImgResources <- paste0("imgResources/myplot", seq_len(3), ".png")

# Add directory of static resources to Shiny's web server
addResourcePath(prefix = "imgResources", directoryPath = "myimages")

ui <- fluidPage(
  tags$img(src = myImgResources[1], width = "400px", height = "400px"),
  tags$img(src = myImgResources[2], width = "400px", height = "400px"),
  tags$img(src = myImgResources[3], width = "400px", height = "400px")
)

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

shinyApp(ui, server)