Question

我遇到了一个问题：我使用闪亮在模态中创建了一个模态，但是当我关闭内部模态时，它会自动关闭整个模态（在一个模式之外），是否有一种方法可以关闭当前的弹出模式 - 模态并保持外部开放？

Answer 1

我已成功为您的问题创建了一个MWE解决方案。

这有两个模态
单击外部模态的Ok按钮时会触发内部模态

单击Inner Modal的Dismiss按钮时会显示外部模态

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

  server = function(input, output) {

    dataModal <- function() {
       modalDialog(
        span('First Modal'),

        footer = tagList(
          modalButton("Cancel"),
          actionButton("ok", "OK")
        )
       )

    }

    subModal <- function(){
      modalDialog(
      span('Inner Modal '),

      footer = tagList(
        modalButton("Cancel"),
        actionButton('dismiss','Dismiss Inner Modal')

      ))
    }

    observeEvent(input$show, {
      showModal(dataModal())
    })


    observeEvent(input$ok, {
       showModal(subModal())
    })

    observeEvent(input$dismiss, {
      showModal(dataModal())
    })



  }
)

如何关闭模态但原始模型保持打开状态

1 个答案: