Shiny 允许用户选择要显示的绘图输出

我有一个闪亮的应用程序，我的服务器功能如下所示：

shinyServer(function(input, output, session) {
 filedata <- reactive({
  infile <- input$file1
  if (is.null(infile)) {
    return(NULL)
  }
  myDF <- fread(infile$datapath)
  return(myDF)
  # Return the requested graph
graphInput <- reactive({
switch(input$graph,
       "Plot1" = plot1,
       "Plot2" = plot2)
})
 output$selected_graph <- renderPlot({ 
paste(input$graph)
  })

 output$plot1 <- renderPlot({
 #fill in code to create a plot1
})

output$plot2 <- renderPlot({
 #fill in code to create plot2
})

UI 功能如下所示：

shinyUI(pageWithSidebar(
 headerPanel("CSV Viewer"),

 sidebarPanel(
  fileInput('file1', 'Choose CSV File',
          accept=c('text/csv', 'text/comma-separated-values,text/plain', '.csv')),
  selectInput("graph", "Choose a graph to view:", 
            choices = c("Plot1", "Plot2"))
  submitButton("Update View")
),#end of sidebar panel

mainPanel(
tabsetPanel(
  tabPanel("Graph Viewer", plotOutput("selected_graph"))

)

我无法使选定的绘图显示在屏幕上。当我从下拉菜单中进行选择并单击“更新视图”按钮时，应用程序不显示绘图。它不显示错误消息。它什么也没显示。

我怎样才能解决这个问题？

正如评论中提到的，鉴于您问题中的示例不完整，很难确保任何答案都能起作用。然而，根据提供的骨架服务器，这种选择图形的模式应该有效：

shinyServer(function(input, output, session) {
  filedata <- reactive({
    # Haven't tested that this will read in data correctly;
    # assuming it does
    infile <- input$file1
    if (is.null(infile)) {
      return(NULL)
    }
    myDF <- fread(infile$datapath)
    return(myDF)
  })

  plot1 <- reactive({
   # this should be a complete plot image,
   # e.g. ggplot(data, aes(x=x, y=y)) + geom_line()
  })

  plot2 <- reactive({
   # this should be a complete plot image,
   # e.g. ggplot(data, aes(x=x, y=y)) + geom_line()
  })

  # Return the requested graph
  graphInput <- reactive({
   switch(input$graph,
          "Plot1" = plot1(),
          "Plot2" = plot2()
          )
  })

  output$selected_graph <- renderPlot({ 
   graphInput()
  })
}

改变了什么：

• plot1 and plot2 are reactive可以从返回的函数（而不是输出）graphInput反应函数
• graphInput返回任一值（即绘图）plot1 or plot2 into output$selected_graph