observeEventモジュールで使用されるシャイニー関数が機能しない

Question

モジュールを使用して別のタブのUIコンテンツを表示するアプリケーションを開発しています。しかし、モジュールがメイン（または親）アプリと通信していないようです。適切なUIを表示しますが、actionButtonがクリックされたときにobserveEvent関数を実行することはできません。現在のタブを更新し、2番目のタブを表示する必要があります。

私のコードでは、名前空間関数を作成して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)