Question

我正试图在我闪亮的R应用程序中显示图像。我对数据集中的每个实例都有不同的图像，所有图像都是在www文件夹中的png格式。

我认为在构造renderImage方法中src参数的图像文件路径时遇到困难，图像文件的名称位于数据帧的第21列。以下是我的代码：

library(shiny)
library(shinydashboard)

df<-read.csv("data2.csv",header = T)


ui <- dashboardPage(
dashboardHeader(),
dashboardSidebar(),
dashboardBody(
# Boxes need to be put in a row (or column)
fluidRow(
  box(
    title = "Controls", solidHeader = TRUE, status="primary",collapsible = TRUE,
    sliderInput("num", "Select Asset Number:", min(df[,1]), max(df[,1]), 1,step = 1),
    actionButton("but1","Go")
  ),
  box(
    imageOutput("myimage",width=300,height=300)
  )
)

)
)

server <- function(input, output) {

values<-reactiveValues(data = NULL)


observeEvent(input$but1, {
dataset<- data.frame(df)
values$data<- dataset
temp <- values$data[input$num, ]
values$data <- temp
})


output$myimage<- renderImage({
path<-file.path("www/",values$data[21],".png")

return(list(src = path, 
contentType = "image/png"))

},
deleteFile = FALSE
)



}

shinyApp(ui, server)

非常感谢

从csv读取图像文件名，用于Shiny R中的renderImage src

0 个答案: