在Shiny/R中如何将外部输入传递给模块并实现响应式更新？

你的问题出在向模块传递值的方式上：主服务器中调用mod1_Server时，直接传入了choices()，这只会传递当前的静态值（初始选中的第一个选项），而非响应式对象，导致模块无法感知后续的选项变化。

修改后的代码： #

模块文件代码

mod1_UI <- function(id) {
  ns <- NS(id)
  tagList(uiOutput(ns('titulo_select')))
}

mod1_Server <- function(id, reactive_choice) {
  moduleServer(id,
               function(input, output, session) {
                 output$titulo_select <- renderUI({
                   h1(reactive_choice())  # 调用响应式对象获取实时值
                 })
               })
}

应用代码

library(shiny)

ui <- fluidPage(selectInput(
  inputId = 'choices',
  label = 'Choices',
  choices = c('One Title', 'Second Title')
),
mod1_UI('titulo'))

server <- function(input, output, session) {
  choices <- reactive({
    input$choices
  })
  # 传递响应式对象本身，而非其当前值
  mod1_Server("titulo", reactive_choice = choices)
}

shinyApp(ui, server)

关键修改点： #

• 模块服务器函数mod1_Server接收响应式对象reactive_choice，而非静态值
• 在模块的renderUI中调用reactive_choice()，确保每次选项变化时重新渲染标题
• 主服务器中调用模块时，直接传入choices这个响应式对象，而非choices()

这样修改后，切换selectInput的选项时，模块中的标题会实时更新。

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