我使用闪亮的一个简单的调查，需要一些用户输入 . 我想将调查结果下载为csv文件 . 这是我目前的情况：

library(shiny)
library(DT)

# Define UI for survey
ui <- fluidPage(

# Application title
titlePanel("Pet Survey"),

# Sidebar with a selector and checkboxes 
sidebarLayout(
  sidebarPanel(
     selectInput("type",
                 "Type:",
                 c("Cat" = 1,
                   "Dog" = 2)
                ),

     checkboxGroupInput(inputId="size",
                        label = "Size",
                        choices = list("Small" = "small",
                                    "Medium" = "medium",
                                    "Large" = "large"),
                        selected = NULL)
                        ),
     mainPanel(
               HTML("Download data"),
               br(), br(), 
               downloadButton("download_data", "Download data")
              )
     )



# Define server logic 
server <- function(input, output) {

# Download file
output$download_data <- downloadHandler(
filename = ("response.csv"),
content = function(file) { 
write_csv(response %>% select(input$selected_var), path = file) 
}
)

}

# Run the application 
shinyApp(ui = ui, server = server)

当我运行并单击下载按钮时，它保存为txt文件，其中没有任何内容 . 我只是不确定用户输入数据的结构 . 基本上我想得到一个看起来像这样的表：

Dog, Cat, Small, Medium, Large
1, 0, 0, 1, 0

这意味着用户选择了Dog并选中了Medium的复选框

1 回答

这是一个有效的 server 函数

# Define server logic 
server <- function(input, output) {

  # Download file
  output$download_data <- downloadHandler(
    filename = ("response.csv"),
    content = function(file) { 
      write_csv(data.frame(Dog= ifelse(input$type==2,1,NA),
                           Cat= ifelse(input$type==1,1,NA),
                           Small= ifelse(input$size=='small',1,NA),
                           Medium= ifelse(input$size=='medium',1,NA),
                           Larg= ifelse(input$size=='size',1,NA)),

                path = file) 
    }
  )

}

更新：

复选框组输入控件说明是创建一组复选框，可用于独立切换多个选项，因此我们可以创建 reactiveValues 来保存所选选项并使用 observeEvent 将它们切换为一个选项"not independently" .

library(shiny)
  library(DT)

  # Define UI for survey
  ui <- fluidPage(

    # Application title
    titlePanel("Pet Survey"),

    # Sidebar with a selector and checkboxes 
    sidebarLayout(
      sidebarPanel(
        selectInput("type",
                    "Type:",
                    c("Cat" = 1,
                      "Dog" = 2)
        ),

        checkboxGroupInput(inputId="size",
                           label = "Size",
                           choices = list("Small" = "small",
                                          "Medium" = "medium",
                                          "Large" = "large"),
                           selected = NULL)
      ),
      mainPanel(
        HTML("Download data"),
        br(), br(), 
        dataTableOutput('tbl'),
        actionButton('go',"Save"),br(),br(),
        downloadButton("download_data", "Download data")
      )
    ))


  # Define server logic 
  server <- function(input, output, session) {

    observe(print(input$size))

    data <- reactiveValues()

    observeEvent(input$go,{

      data$size <- input$size

      data$table <- data.frame(Dog= ifelse(input$type==2,1,NA),
                 Cat= ifelse(input$type==1,1,NA),
                 Small= ifelse(c('small') %in% data$size,1,NA),
                 Medium= ifelse(c('medium') %in% data$size,1,NA),
                 Larg= ifelse(c('large') %in% data$size,1,NA))
    })

    output$tbl <- renderDataTable(data$table)
    # Download file
    output$download_data <- downloadHandler(
      filename = ("response.csv"),
      content = function(file) { 
        write_csv(data$table,path = file) 
      }
    )

  }


  # Run the application 
  shinyApp(ui = ui, server = server)

回复于 2024-04-29T21:11:52+08:00

将闪亮的调查结果下载到CSV

1 回答

更新：

相关问题