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 for循环仅输出最后一个结果？“）。但是这是一个使用shinyalert模态而不是闪亮模态的解决方案：

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)

RShiny：如何在for循环中使用顺序模态

1 个答案: