RShiny: как получить последовательные модалы в цикле for - PullRequest
Новая
       12

RShiny: как получить последовательные модалы в цикле for

0 голосов
/ 23 января 2019

Я пытаюсь внедрить модальные всплывающие окна в мое приложение 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)

1 Ответ

0 голосов
/ 23 января 2019

Это не дает прямого ответа на ваш вопрос о том, почему он не работает с вашим кодом (ответ немного сложен, но @BigDataScientist верен, есть много старых вопросов с такими же строками «почему для цикл выводит только последний результат? "). Но вот решение, использующее модальный 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)
...