R：将 shiny 封装入函数后，shiny 的 img 图像在 ui.R 中正常使用，却在app中无法显示

71 阅读 0 评论 47 点赞

我是靠谱客的博主多情香烟，这篇文章主要介绍R：将 shiny 封装入函数后，shiny 的 img 图像在 ui.R 中正常使用，却在app中无法显示，现在分享给大家，希望可以做个参考。

遇到的问题

原先我的app里有一张图片是能正常显示的：
在这里插入图片描述
代码如下：

复制代码

1
2
3
4
5
6
7
8
ui <- dashboardPage(
	dashboardSidebar(
		conditionalPanel(condition = ,
                         br(),
                         sidebarMenu(
                              menuItem("Assign metadata",
                                    img(src = 'annotation_example.png', width = '100%')

文件结构如下：

复制代码

1
2
3
4
5
 | shinyApp/
    | app.R
    | www/
       | annotation_example.png

但当我将shiny函数整合进一个function()后，我的img就裂开了（我也裂开了……）：
在这里插入图片描述

解决方法

我试过相对路径、绝对路径，图片都无法正常显示。
在一个网站看到说如果将shiny整合进函数的话，img是会无法正常显示的，应该是shiny自身的代码问题，但是没有说解决方法，又继续搜索。
在参考中的第二个回答得到了启发，将代码更改后就能显示了：

复制代码

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
ui <- dashboardPage(
	dashboardSidebar(
		conditionalPanel(condition = ,
                         br(),
                         sidebarMenu(
                              menuItem("Assign metadata",
                                    #img(src = 'annotation_example.png', width = '100%')
                                    imageOutput('proteus_annotation_example')
                                 
server <- function(input, output, session) {
	output$proteus_annotation_example <- renderImage({
      	list(src = './shiny-app/www/annotation_example.png',
           	width = '100%')
    }	, deleteFile = FALSE)
}