R Shiny : How to have sequential Modals in for loop

Question

我正在尝试在我的 RShiny 应用程序中实现模式弹出窗口，要求用户输入日期。在向用户询问新日期之前，输入的日期将在循环内的流程中使用。使用我当前的代码，只会弹出最后一个循环的模态，在本例中是循环 5。我将如何更改我的代码以在每个循环中都有一个弹出模式？

这是我当前代码的示例:

ui = basicPage(
  actionButton("show", "Show modal dialog")
)

server <- function(input, output) {

  observeEvent(input$show, {
    for(i in 1:5){
      showModal(modalDialog(
        textInput(paste("modal",i,sep=" "), paste("Please enter a date for ID", i, sep = " "),
        placeholder = "Please use format MM/DD/YYYY"),
        footer = tagList(modalButton("Enter"))
        ###Process using inputted date for loop
      ))}})}




shinyApp(ui = ui, server = server)

Answer 1

这并没有直接回答你为什么它不能与你的代码一起工作的问题(答案有点复杂，但@BigDataScientist 是正确的，有很多老问题与“为什么一个 for循环只输出最后的结果？”)。但是这里有一个使用 shinyalert modal 而不是 shiny modals 的解决方案:

NUM_MODALS <- 5

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

server <- function(input, output) {

  observeEvent(input$show, {
    for(id in 1:5){
      shinyalert::shinyalert(
        type = "input",
        text = paste("Please enter a date for ID", id),
        inputPlaceholder = "Please use format MM/DD/YYYY",
        inputId = paste0("modal", id)
      )
    }
  })

  lapply(seq(NUM_MODALS), function(id) {
    output[[paste0("modal", id)]] <- renderText({
      input[[paste0("modal", id)]]
    })
  })
}

shinyApp(ui = ui, server = server)