observeEvent模塊中使用的閃亮功能不起作用

Question

我正在開發一個應用程序，其中我使用模塊來顯示不同選項卡的ui內容。 但是，似乎該模塊不與主（或父）應用程序通信。 它會顯示正確的用戶界面，但不能執行observeEvent功能的時候actionButton被點擊，就應該更新當前標簽並顯示第二個。

在我的代碼中，我創建了一個名稱空間函數並將actionButton的id包裝在ns() ，但是它仍然不起作用。 有誰知道什么是錯的？

library(shiny)

moduleUI <- function(id){

  ns <- NS(id)
      sidebarPanel(

        actionButton(ns("action1"), label = "click")
      )
}

module <- function(input, output, session){


  observeEvent(input$action1, {
    updateTabItems(session, "tabsPanel", "two")
  })
}

ui <- fluidPage(

            navlistPanel(id = "tabsPanel",

                         tabPanel("one",moduleUI("first")),
                         tabPanel("two",moduleUI("second"))
))
server <- function(input, output, session){
  callModule(module,"first")
  callModule(module,"second")

}

shinyApp(ui = ui, server = server)

Answer 1

observeEvent工作，但由於模塊只能看到並知道作為輸入參數賦予它們的變量，因此它不知道指定的tabsetPanel，因此無法更新它。 可以使用反應值來解決此問題，該值作為參數傳遞並在模塊內部更改。 一旦它被更改，主應用程序就會知道它並且可以更新tabsetPanel：

library(shiny)
library(shinydashboard)

moduleUI <- function(id){

  ns <- NS(id)
  sidebarPanel(
    actionButton(ns("action1"), label = "click")
  )
}

module <- function(input, output, session, tabsPanel, openTab){

  observeEvent(input$action1, {
    if(tabsPanel() == "one"){  # input$tabsPanel == "one"
      openTab("two")
    }else{                     # input$tabsPanel == "two"
      openTab("one")
    }
  })

  return(openTab)
}

ui <- fluidPage(
  h2("Currently open Tab:"),
  verbatimTextOutput("opentab"),
  navlistPanel(id = "tabsPanel",
               tabPanel("one", moduleUI("first")),
               tabPanel("two", moduleUI("second"))
  ))


server <- function(input, output, session){
  openTab <- reactiveVal()
  observe({ openTab(input$tabsPanel) }) # always write the currently open tab into openTab()

  # print the currently open tab
  output$opentab <- renderPrint({
    openTab()
  })

  openTab <- callModule(module,"first", reactive({ input$tabsPanel }), openTab)
  openTab <- callModule(module,"second", reactive({ input$tabsPanel }), openTab)

  observeEvent(openTab(), {
    updateTabItems(session, "tabsPanel", openTab())
  })
}

shinyApp(ui = ui, server = server)