如何在Shiny中实现顺序Modal对话框并解决输入数据下载问题

问题根源 #

原代码中用isolate(export)把响应式数据转为静态值，导致下载内容无法随用户输入更新；同时硬编码modal输入ID的方式不够灵活，且downloadHandler内存在冗余代码。

修正后的代码 #

library(shiny)
library(shinyalert)

test <- c("C", "D", "F")
NUM_MODALS <- length(test)

ui <- fluidPage(
  shinyalert::useShinyalert(),
  actionButton("show", "Show modal dialog"),
  lapply(seq(NUM_MODALS), function(id) {
    div(id, ":", textOutput(paste0("modal", id), inline = TRUE))
  }),
  downloadButton("downloadData", "Download")
)

server <- function(input, output) {
  
  observeEvent(input$show, {
    for(id in 1:NUM_MODALS){
      shinyalert::shinyalert(
        type = "input",
        text = paste("¿Cuál es la industria de la siguiente empresa?:", test[id]),
        inputPlaceholder = "Cuidado con mayúsculas/minúsculas",
        inputId = paste0("modal", id)
      )
    }
  })
  
  # 动态渲染每个modal的输入结果
  lapply(seq(NUM_MODALS), function(id) {
    output[[paste0("modal", id)]] <- renderText({
      paste(test[id], input[[paste0("modal", id)]])
    })
  })
  
  # 动态收集所有modal的输入，生成响应式导出数据
  export_data <- reactive({
    # 遍历所有modal ID，获取对应的输入值
    inputs <- sapply(1:NUM_MODALS, function(id) {
      input[[paste0("modal", id)]]
    })
    # 组合成数据框，方便导出为CSV
    data.frame(
      企业 = test,
      行业 = inputs,
      stringsAsFactors = FALSE
    )
  })
  
  output$downloadData <- downloadHandler(
    filename = function() {
      paste('data-', Sys.Date(), '.csv', sep='')
    },
    content = function(filesillo) {
      # 直接将响应式数据写入文件
      write.csv(export_data(), filesillo, row.names = FALSE)
    }
  )
}

shinyApp(ui = ui, server = server)

关键修改说明 #

• 响应式数据收集：用sapply动态遍历所有modal ID获取输入值，替代硬编码的input$modal1，适配任意数量的modal。
• 移除isolate：export_data是响应式表达式，会自动追踪输入变化，确保下载内容始终是最新的用户输入。
• 简化下载逻辑：删除冗余的临时目录操作，直接将响应式数据写入CSV文件，同时添加列名让导出的文件更易读。
• 数据结构优化：将导出内容整理为数据框，导出的CSV会包含表头，提升可读性。

内容的提问来源于stack exchange，提问作者Ekapunk