r - 在 Shiny 模块中使用模态窗口

Question

我想在 Shiny 模块内使用模态窗口。用户与模态窗口交互，模块处理用户的输入。

在这个最小的示例中，当用户单击“关闭模态”按钮时，模块应该删除模态:

library(shiny)

# Modal module UI
modalModuleUI <- function(id) {
  ns <- NS(id)
  actionButton(ns("openModalBtn"), "Open Modal")
}

# Modal module server
modalModule <- function(input, output, session) {

  myModal <- function() {
    modalDialog(
      actionButton("closeModalBtn", "Close Modal")
    )
  }
  # Show modal dialog on start up
  observeEvent(input$openModalBtn,
               ignoreNULL = FALSE,
               showModal(myModal())
               )

  # close modal on button click (not working)
  observeEvent(input$closeModalBtn, { 
    removeModal() 
  })
}

# Main app UI
ui <- fluidPage(modalModuleUI("foo"))

# Main app server
server <- function(input, output, session) {
  callModule(modalModule, "foo")
}

shinyApp(ui, server)

但是，单击“关闭模态”按钮不会触发模块服务器函数中的 observeEvent()。我无法弄清楚如何访问(即观察)模块中模式窗口的内容。我猜这是一个命名空间问题。

编辑:interactive example现在可以了。请参阅下面我的回答。

Answer 1

重读this后我自己弄清楚了更仔细地。就像 renderUI模态中的 id 元素需要包裹在 ns() 中使它们在模块命名空间中可用。必须使用 ns <- session$ns 显式地将命名空间加载到模式中，像这样:

library(shiny)

# Modal module UI
modalModuleUI <- function(id) {
  ns <- NS(id)
  actionButton(ns("openModalBtn"), "Open Modal")
}

# Modal module server
modalModule <- function(input, output, session) {

  myModal <- function() {
    ns <- session$ns
    modalDialog(actionButton(ns("closeModalBtn"), "Close Modal"))
  }

  # open modal on button click
  observeEvent(input$openModalBtn,
               ignoreNULL = FALSE,   # Show modal on start up
               showModal(myModal())
  )

  # close modal on button click
  observeEvent(input$closeModalBtn, { 
    removeModal() 
  })
}

# Main app UI
ui <- fluidPage(modalModuleUI("foo"))

# Main app server
server <- function(input, output, session) {
  callModule(modalModule, "foo")
}

shinyApp(ui, server)

注意:如果 myModal 函数定义在模块服务器函数之外，则调用它时必须传递 session ，即showModal(myModal(session))和myModal <- function(session) {...} .

我已经更新了 example app这样它现在就可以工作了，并且还添加了一个 textInput。