保存从下拉菜单中选择的反应表

Question

我是新手，我试图根据用户从下拉菜单中选择的内容来保存反应性表。我希望下拉菜单中有一个用户可以选择的反应式表列表，然后单击“保存”按钮以保存所选的表，这是我尝试过的方法，但似乎下拉菜单中没有选择反应式表。

# Set libraries
library(shiny)
library(shinyFiles)

# Shiny app with two fields that the user can submit data for
shinyApp(
  ui = fluidPage(

    DT::dataTableOutput("responses", width = 300), tags$hr(),

    selectInput("data", "data:", 
                choices=(df1(),df2())),

    tags$hr(),
    shinySaveButton("save", "Save file", "Save file as ...", filetype="csv")


    #actionButton("submit", "Submit")
  ),
  server = function(input, output, session) {

    #create dataframe one
    df1<- reactive({
      df <- data.frame("id" = 1:2, "Age" = c(21,15), "Name" = c("John","Dora"))
      df

    })

    #create dataframe two
    df2<- reactive({
      df <- data.frame("id" = 2:4, "Age" = c(521,715), "Name" = c("Hellen","Jane"))
      df

    })


    ##########################################
    observeEvent(input$save,{
      volumes <- c("UserFolder"="path")
      shinyFileSave(input, "save", roots=volumes, session=session)
      fileinfo <- parseSavePath(volumes, input$save)
      data <- input$data
      if (nrow(fileinfo) > 0) {
        write.csv(data, as.character(fileinfo$datapath))
      }
    })



  })

我的最终结果应该是一个应用，其中用户从下拉菜单中选择要保存的反应性表，然后继续并单击“保存”按钮。我选择此选项的原因是，我在应用程序中生成了更多的反应式表，我希望将它们保存在自己的目录中。

我是新手，我试图根据用户从下拉菜单中选择的内容来保存反应性表。我希望下拉菜单中有一个用户可以选择的反应表列表，然后单击...

Answer 1

让我知道这是否是您想要的。