我怎样才能让 ShinyApp 调用一个模块,而这个模块又调用另一个模块?
How can I have a ShinyApp calling a module, which in turn calls another module?
我有一个简单的 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, function(input, output, 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, output, session) {
res <- mod_server("mod_ui_1")
}
shinyApp(app_ui, app_server)
无论何时调用子模块,都需要 namespace 子模块的 id。
换句话说,你应该在 mod_ui
:
里面做 mod_b_ui(ns("mod_ui_2"))
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"), "Choice", 1, 10, 5),
mod_b_ui(ns("mod_ui_2"))
)
}
mod_server <- function(id) {
moduleServer(id, function(input, output, 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, output, session) {
res <- mod_server("mod_ui_1")
}
shinyApp(app_ui, app_server)
我有一个简单的 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, function(input, output, 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, output, session) {
res <- mod_server("mod_ui_1")
}
shinyApp(app_ui, app_server)
无论何时调用子模块,都需要 namespace 子模块的 id。
换句话说,你应该在 mod_ui
:
mod_b_ui(ns("mod_ui_2"))
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"), "Choice", 1, 10, 5),
mod_b_ui(ns("mod_ui_2"))
)
}
mod_server <- function(id) {
moduleServer(id, function(input, output, 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, output, session) {
res <- mod_server("mod_ui_1")
}
shinyApp(app_ui, app_server)