英文:
Trouble with nested shiny module responding to action button click
问题
我在使用嵌套的Shiny模块与动作按钮时遇到问题。
我希望在点击时嵌套的模块会在控制台上打印。我创建了一个示例来说明这个问题。
library(shiny)
ui_2 <- function(id){
ns <- NS(id)
actionButton(ns('go'), 'go')
}
server_2 <- function(id) {
moduleServer(id, function(input, output, session){
observeEvent(input$go, print('working!'))
})
}
ui_1 <- function(id) {
ns <- NS(id)
fluidRow(
ui_2(ns('two'))
)
}
server_1 <- function(id) {
moduleServer(id, function(input, output, session) {
ns <- NS(id)
server_2(ns('two'))
})
}
ui <- fluidPage(
ui_1('one')
)
server <- function(input, output, session) {
server_1('one')
}
shinyApp(ui, server)
非常感谢任何帮助！
英文:
I am having problems getting nested shiny modules with action buttons to respond.
I want the nested module to print to the console when clicked. I created a toy example to illustrate the problem.
library(shiny)
ui_2 <- function(id){
ns <- NS(id)
actionButton(ns('go'), 'go')
}
server_2 <- function(id) {
moduleServer(id, function(input, output, session){
observeEvent(input$go, print('working!'))
})
}
ui_1 <- function(id) {
ns <- NS(id)
fluidRow(
ui_2(ns('two'))
)
}
server_1 <- function(id) {
moduleServer(id, function(input, output, session) {
ns <- NS(id)
server_2(ns('two'))
})
}
ui <- fluidPage(
ui_1('one')
)
server <- function(input, output, session) {
server_1('one')
}
shinyApp(ui, server)
Any help is greatly appreciated!
答案1
得分: 0
The issue is that you wrapped the ID inside ns() in the first module server, i.e. do server_2("two") instead of server_2(ns('two')).
英文:
The issue is that you wrapped the ID inside ns() in the first module server, i.e. do server_2("two") instead of server_2(ns('two')).
library(shiny)
ui_2 <- function(id) {
ns <- NS(id)
actionButton(ns("go"), "go")
}
server_2 <- function(id) {
moduleServer(id, function(input, output, session) {
observeEvent(input$go, print("working!"))
})
}
ui_1 <- function(id) {
ns <- NS(id)
fluidRow(
ui_2(ns("two"))
)
}
server_1 <- function(id) {
moduleServer(id, function(input, output, session) {
server_2("two")
})
}
ui <- fluidPage(
ui_1("one")
)
server <- function(input, output, session) {
server_1("one")
}
shinyApp(ui, server)
通过集体智慧和协作来改善编程学习和解决问题的方式。致力于成为全球开发者共同参与的知识库，让每个人都能够通过互相帮助和分享经验来进步。
评论