Question

我在R Shiny工作，我希望用户能够上传多个数据集（尽可能多的数据集），并在另一个标签页中访问数据。我似乎无法弄明白。我有一个解决方案，但它很草率，它涉及全局变量，并在用户切换标签而不是访问标签时重新上传数据。我希望能够使用被动反应来做到这一点。这是我到目前为止所拥有的

library("shiny")

server <- function(input, output) {

  in_data <- reactive({
    validate(
      need(input$file1, "Select a file!")
    )

    read.csv(input$file1$datapath, header = input$header,
             sep = input$sep, quote = input$quote)
  })

output$file_info <- renderTable({
data.frame(in_data())
})

}

ui <- navbarPage('Navigation Bar',
  tabPanel('File Information', verbatimTextOutput('fileInfo'),
    sidebarLayout(
      sidebarPanel(
        fileInput('file1', 'Choose CSV File', accept = c('text/csv', 'text/comma-separated-values,text/plain', '.csv')),
    checkboxInput('header', 'Header', TRUE),
    radioButtons('sep', 'Separator', c(Comma = ',', Semicolon = ';', Tab = '\t'), ','),
    radioButtons('quote', 'Quote', c(None = '', 'Double Quote'='"', 'Single Quote' = "'"),'"'),
    tags$hr()
    ),
  mainPanel(
    tableOutput("file_info")
    )
  )
)
)

shinyApp(ui, server)

我希望用户能够上传多个＆＃34; file1＆＃34;并让R将它们存储起来以便以后轻松访问。有任何想法吗？非常感谢

存储R Shiny Reactive的多个数据集

0 个答案: