光沢のある再入力入力に基づいて、異なるデータセットと列を使用して異なる反応グラフをプロット

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)