我怎样才能让 ShinyApp 调用一个模块，然后又调用另一个模块？

问题描述

我有一个简单的 ShinyApp，它调用 2 个模块 - 这很有效。

但是，我正在尝试对其进行转换，以便 ShinyApp 调用一个模块，而该模块又调用一个子模块。请参阅下面的代码，我不知道为什么它不起作用：

我正在尝试解决这个问题，以便我了解如何将另一个应用程序转换为 Golem。

################## Sub-module ###########
mod_b_ui <- function(id) {
    ns <- NS(id)
    tagList(
        actionButton(ns("validate"),"Print")
    )
}

mod_b_server <- function(id,react) {
    moduleServer(id,function(input,output,session) {
        observeEvent( input$validate,{
            print(react())
        })
    })
}

################## Module ############
mod_ui <- function(id) {
    ns <- NS(id)
    tagList(
        sliderInput(ns("choice"),"Choice",1,10,5),mod_b_ui("mod_ui_2")
    )
}

mod_server <- function(id) {
    moduleServer(id,session) {
        res <- reactive({input$choice})
        mod_b_server("mod_ui_2",react = res)
    })
}

################### Application ############
library(shiny)
app_ui <- function() {
    fluidPage(
        mod_ui("mod_ui_1")
    )
}

app_server <- function(input,session) {
    res <- mod_server("mod_ui_1")
}

shinyApp(app_ui,app_server)

解决方法

无论何时调用子模块，都需要命名空间子模块的 id。

换句话说，您应该在 mod_b_ui(ns("mod_ui_2")) 内执行 mod_ui：

mod_ui <- function(id) {
  ns <- NS(id)
  tagList(
    sliderInput(ns("choice"),"Choice",1,10,5),mod_b_ui(ns("mod_ui_2"))
  )
}

这是完整的工作应用程序。

################## Sub-module ###########
mod_b_ui <- function(id) {
  ns <- NS(id)
  tagList(
    actionButton(ns("validate"),"Print")
  )
}

mod_b_server <- function(id,react) {
  moduleServer(id,function(input,output,session) {
    observeEvent( input$validate,{
      print(react())
    })
  })
}

################## Module ############
mod_ui <- function(id) {
  ns <- NS(id)
  tagList(
    sliderInput(ns("choice"),mod_b_ui(ns("mod_ui_2"))
  )
}

mod_server <- function(id) {
  moduleServer(id,session) {
    res <- reactive({input$choice})
    mod_b_server("mod_ui_2",react = res)
  })
}

################### Application ############
library(shiny)
app_ui <- function() {
  fluidPage(
    mod_ui("mod_ui_1")
  )
}

app_server <- function(input,session) {
  res <- mod_server("mod_ui_1")
}

shinyApp(app_ui,app_server)