[英]observeEvent with updateMaterialSwitch in shiny module not updating input
我想使用 observeEvent 更新 shiny 模块中的 materialSwitch,触发事件但 updateMaterialSwitch 不会更改输入值。 我的代码片段:
# app server
app_server <- function(input, output, session) {
r <- reactiveValues()
observe(r$is_load <- is_load()) # basic reactive true/false - switching according to condition
callModule(mod_1_server, "1", r = r)
}
# mod_1_server
mod_1_server <- function(input, output, session, r) {
output$switch_uncumulate_tagvals <- renderUI({
materialSwitch(
inputId = "uncumulate_tagvals",
label = "label",
value = FALSE,
status = "warning"
)
})
observeEvent(req(r$is_load() == TRUE), {
updateMaterialSwitch(session = session,
inputId = "uncumulate_tagvals",
value = TRUE)
})
observeEvent(req(r$is_load() == FALSE), {
updateMaterialSwitch(session = session,
inputId = "uncumulate_tagvals",
value = FALSE)
})
}
当 observeEvents 在 app_server 中时,一切正常。 当我将它们移动到 mod_1_server 时,会触发事件,但 input$uncumulate_tagvals (我的 inputId)的预期值永远不会改变。 我的猜测是问题可能出在 session 上,但我不知道如何解决。 有什么建议么?
我认为问题来自缺少命名空间规范,使用session$ns()
# mod_1_server
mod_1_server <- function(input, output, session, r) {
# namespace fonction
ns <- session$ns
output$switch_uncumulate_tagvals <- renderUI({
materialSwitch(
inputId = ns("uncumulate_tagvals"),
label = "label",
value = FALSE,
status = "warning"
)
})
observeEvent(req(r$is_load() == TRUE), {
updateMaterialSwitch(session = session,
inputId = "uncumulate_tagvals",
value = TRUE)
})
observeEvent(req(r$is_load() == FALSE), {
updateMaterialSwitch(session = session,
inputId = "uncumulate_tagvals",
value = FALSE)
})
}
如果您需要有关如何转换为模块的更多信息,可以阅读此博客文章: https://rtask.thinkr.fr/communication-between-modules-and-its-whims/
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.