根据闪亮的反应输入，使用不同的数据集和列绘制不同的反应图

Question

我目前正在尝试自学闪亮，但遇到了一些麻烦。 我想制作一个应用程序，该应用程序具有用户想要从中绘制数据集的菜单，然后是他们想要绘制的变量的另一个菜单（针对日期列）

我已经设法让反应式菜单正常工作，但我正在努力弄清楚如何“调用”选定的数据集。我已经阅读了很多帖子（例如1、2），但似乎没有一个可以处理多数据集问题。

我的代码目前看起来像这样，我的问题出现在最后几行（如何在 outVar() 中访问 mydata？！？）。

如果有人能指出我正确的方向，那就太好了！

library(shiny)
library(ggplot2)

datafiles<-c("Data/try2.txt","Data/Poland.txt","Data/Romania.txt","Data/Hungary.txt","Data/KHR.txt")


runApp(list(
  ui = bootstrapPage(
    selectInput('dataset', 'Choose Dataset', datafiles),
    selectInput('columns', 'Columns', ""),
    plotOutput('graph')
  ),

  server = function(input, output, session){
    outVar = reactive({
      mydata = read.table(paste0(input$dataset), sep = '\t', header=TRUE)
      names(mydata)

    })
    observe({
      updateSelectInput(session, "columns",
                        choices = outVar()
      )})
    output$graph<-renderPlot({data<- outVar$mydata
    plot(data$Date,data$paste0(input$columns))})
  }
))

shinyApp(ui=ui, server=server)    

Answer 1

我没有你的数据，但是，我使用了葡萄酒质量数据来构建这个。 https://archive.ics.uci.edu/ml/datasets/Wine+Quality

希望对你有帮助

library(shiny)
library(tidyverse)
library(ggplot2)


datafile1 <- read_delim(file = "Data/winequality-red.csv", delim = ";")
datafile2 <- read_delim(file = "Data/winequality-white.csv", delim = ";")
# datafiles<-c("Data/try2.txt","Data/Poland.txt","Data/Romania.txt","Data/Hungary.txt","Data/KHR.txt")

datafiles <- list(datafile1, datafile2)

ui <- fluidPage(
  selectInput('dataset', 'Choose Dataset', choices = c("Red" = "1", "White" = "2")),
  selectInput('column', 'Choose column', choices = c("2" = "2", "3" = "3")),
  plotOutput('graph')
)

server = function(input, output, session){

  outVar <- reactive({
    temp <- datafiles[[as.numeric(input$dataset)]]
    temp <- temp[,c(1, as.numeric(input$column))]
  })

  output$graph <- renderPlot({
    plot(outVar())
  })
}


shinyApp(ui=ui, server=server)