R Shiny如何通过传入模块的响应式值同步更新Radio按钮选中状态

1. is.reactive返回FALSE的原因 #

is.reactive()的校验对象是响应式对象本身，而非响应式对象返回的计算值：

• 你写is.reactive(rval())时，rval()是调用响应式对象得到的字符串结果（比如"A"），自然不是响应式对象，返回FALSE
• 正确写法是is.reactive(rval)，不加括号，校验响应式对象本身会返回TRUE
• 同理input$tmp是从reactiveValues对象input中取出的具体值，所以is.reactive(input$tmp)也返回FALSE，is.reactivevalues(input)才会返回TRUE

2. updateRadioGroupButtons不生效的核心原因 #

模块内调用update系列输入组件更新函数时，inputId不需要额外加ns()包装：
模块内部的session对象已经自带当前模块的命名空间，你再加ns("radio")会导致最终查找的input id变成mod1-mod1-radio，和实际生成的mod1-radio不匹配，自然找不到组件更新。

要实现多模块实例的单选状态全局同步，需要用**可写的响应式值reactiveVal**代替只读的reactive，同时做双向绑定：

1. 全局定义一个reactiveVal存储公共选中值
2. 任意模块内的单选修改时，更新这个全局reactiveVal
3. 所有模块监听这个全局reactiveVal的变化，同步更新自身单选的选中状态

library(shiny)
library(shinyWidgets)

# UI模块
modUI <- function(id){
  ns <- NS(id)
  tagList(
    shinyWidgets::radioGroupButtons(
      inputId = ns("radio"),
      choices = c('A', 'B', 'C', 'D'),
      selected = 'A'
    ),
    uiOutput(ns('modtest')),
    uiOutput(ns('modtest2'))
  )
}

# Server模块
modServer <- function(id, .selected){
  moduleServer(id, function(input, output, session){
    ns <- session$ns
    
    mod_rval <- reactive({ .selected() })    
    
    output$modtest <- renderText({
      paste('mod_rval()是:', mod_rval(), 'mod_rval本身是否是响应式对象: ', is.reactive(mod_rval))
    })
    
    output$modtest2 <- renderText({
      paste('.selected()是:', .selected(), '.selected本身是否是响应式对象: ', is.reactive(.selected))
    })
    
    # 监听全局选中值变化，更新当前模块的单选
    observeEvent(.selected(), {
      shinyWidgets::updateRadioGroupButtons(
        session,
        inputId = "radio", # 这里不用加ns()
        selected = .selected()
      )
    }, ignoreInit = TRUE)
    
    # 监听当前模块的单选变化，更新全局选中值
    observeEvent(input$radio, {
      .selected(input$radio)
    }, ignoreInit = TRUE)
  })
}

# 主应用
ui <- fluidPage(
  selectInput('tmp', 'tmp : 输入值', choices = c('A','B','C','D')),
  h3("模块1实例"),
  modUI(id='mod1'),
  h3("模块2实例"),
  modUI(id='mod2'), # 新增第二个模块实例，验证同步效果
  uiOutput('test'),
  uiOutput('test2')
)

server <- function(input, output, session) {
  # 用可写的reactiveVal存储全局选中值
  global_selected <- reactiveVal('A')
  
  # 两个模块都传入同一个全局响应式值
  modServer(id = 'mod1', .selected = global_selected)
  modServer(id = 'mod2', .selected = global_selected)
  
  # 外部selectInput和全局值双向绑定
  observeEvent(input$tmp, {
    global_selected(input$tmp)
  })
  observeEvent(global_selected(), {
    updateSelectInput(session, 'tmp', selected = global_selected())
  })
  
  output$test <- renderText({
    paste('global_selected()是: ', global_selected(), 'global_selected本身是否是响应式对象: ', is.reactive(global_selected))
  })
  
  output$test2 <- renderText({
    paste('input$tmp是: ', input$tmp, 'input是否是reactiveValues对象: ', is.reactivevalues(input))
  })
}

shinyApp(ui, server)

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