R Shiny模块调用技术问询：点击按钮显示DataFrame的实现问题

我想要实现点击按钮时显示DataFrame的功能，于是拆分了按钮模块（mod_button）和数据框模块（mod_dataframe），在按钮模块的observeEvent响应中调用数据框模块的server函数，在该函数内生成DataFrame并绑定到输出。以下是我的代码实现：

mod_button.R #

mod_button_ui <- function(id){ ns <- NS(id); tagList(
    actionButton(ns("button"), id) )}

mod_button_server <- function(id){ moduleServer(id, function(input, output, session){ns <- session$ns
    observeEvent(input$button, {
      print(id)
      mod_dataframe_server("table")
    })})}

mod_dataframe.R #

mod_dataframe_ui <- function(id){ ns <- NS(id); tagList(
    tableOutput(ns("mytable")))}

mod_dataframe_server <- function(id){moduleServer(id, function(input, output,session){ ns <- session$ns;
    df <- data.frame(Years = seq(2000, 2009), Colonne2 = rnorm(10), Colonne3 = rnorm(10), Colonne4 = rnorm(10))
    output$mytable <- renderTable({df})})}

app_ui.R #

app_ui <- function(request) {tagList(golem_add_external_resources(),
    mod_button_ui("B1"), #mod_button_ui("B2"),
    mod_dataframe_ui("table"),
  )}

app_server.R #

app_server <- function(input, output, session) {
  mod_button_server("B1") #mod_button_server("B2")}

内容的提问来源于stack exchange，提问作者dia05