Загрузка в Shiny и назначение его среде для дальнейшего использования

Question

Я пытаюсь создать Shiny dashboard, где пользователь может загружать наборы данных, называя их, а затем выбирая один набор данных из выпадающего меню.

Я не совсем понимаю, как пользователь может загрузить данные, сохранить их и получить к ним доступ. Я пытался использовать assign(), но набор данных не отображается под ls(). Моя попытка:

library(data.table)
library(shinyWidgets)
library(shinydashboard)


if (interactive()) {

  ui <- fluidPage(
    sidebarLayout(
      sidebarPanel(
        fileInput("file1", "Choose CSV File",
                  accept = c(
                    "text/csv",
                    "text/comma-separated-values,text/plain",
                    ".csv")
        ),

        actionButton('show_ls', 'show_ls'),

                         # Name data

        textInput('name_data', 'Store data as' , value = ''),

                         # Action button to upload

        actionButton('upload_data', 'Upload and save data')



        ),

      mainPanel(
        tableOutput('ls')
        #  textOutput('ls'))
      )
    )
  )



  server <- function(input, output, session) {

    # This part uploads one row from the file, so the user can selects columns and choose name of the file

    data <- reactive({
      file1 <- input$file1

      if(is.null(file1)){return()}

      data_input <- fread(file=file1$datapath, sep=",")

      updateTextInput(
        session,
        'name_data',
        value = file1$name
      )

      return(data_input)


    })



    #### ASSIGNING THE DATA

    assign_data <- eventReactive(input$upload_data, {

      assign(input$name_data, data(), envir = .GlobalEnv)

    })

    assign_the_data <- reactive(assign_data())


    output$contents <- renderTable({

      if(is.null(data())) return(NULL)

      data()

    })

    outputOptions(output, 'contents', suspendWhenHidden = FALSE)

    show_ls <- eventReactive(input$show_ls, {data.frame(a = ls(.GlobalEnv))})

    output$ls <- renderTable({

      show_ls()

    })





  }

  shinyApp(ui, server)
}

Answer 1

Использование assign() может быть затруднено, потому что путь поиска в пространстве имен может быть сложно предсказать. Лучшим решением было бы хранить наборы данных в списке реактивных значений и получать к ним доступ оттуда. Вы можете динамически визуализировать пользовательский интерфейс средства выбора наборов данных на основе имен наборов данных, хранящихся в списке реактивных значений.

if (interactive()) {
  ui <- fluidPage(sidebarLayout(
    sidebarPanel(
      fileInput(
        "file1",
        "Choose CSV File",
        accept = c(
          "text/csv",
          "text/comma-separated-values,text/plain",
          ".csv"
        )
      ),

      # Name data

      textInput('name_data', 'Store data as' , value = ''),

      # Action button to upload

      actionButton('upload_data', 'Upload and save data')

    ),

    mainPanel(uiOutput("dataset_picker"),
              tableOutput('selected_table')
              #  textOutput('ls')))
    ))



    server <- function(input, output, session) {
      # This part uploads one row from the file, so the user can selects columns and choose name of the file
      dfs <- reactiveValues()

      observeEvent(input$upload_data, {
        req(input$file1, input$name_data)
        dfs[[input$name_data]] <- read.csv(input$file1$datapath[1])
        print(names(dfs))
      })

      output$dataset_picker <- renderUI({
        req(length(dfs) > 0)
        pickerInput(
          "dataset_picker",
          label = "Choose dataset",
          choices = names(reactiveValuesToList(dfs)),
          selected = NULL
        )
      })


      output$selected_table <- renderTable({
        req(input$dataset_picker)
        dfs[[input$dataset_picker]]

      })


    }

    shinyApp(ui, server)
}