如何在 Shiny 中有连续的模态对话框

Question

我需要一个 shiny 应用程序来执行以下操作：

1. 用户点击一个按钮
2. 向用户显示 N 个弹出窗口要求输入
3. 然后用户使用下载按钮下载应用程序中显示的信息

我已经能够达到第 1 点和第 2 点，但是我无法达到第 3 点，因为用户输入是反应值。 这是几乎可以工作的代码示例：

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)
      )
    }
  })
  
  lapply(seq(NUM_MODALS), function(id) {
    output[[paste0("modal", id)]] <- renderText({paste(test[id],input[[paste0("modal", id)]])})
  })
  export <- reactive(c(input$modal1, input$modal2, input$modal3))
  export2 <- isolate(export)
  print(export2)
  #browser()
  output$downloadData <- downloadHandler(
    
    filename = function() {
      paste('data-', Sys.Date(), '.csv', sep='')
    },
    content = function(filesillo) {
      fs <- c()
      tmpdir <- tempdir()
      setwd(tempdir())
      path <- paste("prueba.txt", sep = "")
      fs <- c(fs, path)
      write.csv(export2, filesillo)
      
    }
  )
}

shinyApp(ui = ui, server = server)

Answer 1

您可以在观察中分配给 reactiveValues，而不是将输入分配为反应。

  export <- reactiveValues(
    dat = NULL
  )
  
  observe({
    export$dat <- dplyr::bind_rows(
      modal1 = input$modal1,
      modal2 = input$modal2,
      modal3 = input$modal3
    )
  })
  # export <- reactive(c(input$modal1, input$modal2, input$modal3))
  # export2 <- isolate(export)
  # print(export2)
  #browser()

然后在你的 downloadHandler

      #write.csv(export2, filesillo)
      write.csv(export$dat, filesillo)

这将 output csv 以模态输入作为列