如何使用ActionButton切换Shiny应用的UI界面？

你的代码存在几处关键问题，以下是修正后的完整实现：

# 定义模块化UI
Second_UI = function(id){
  ns = NS(id)
  
  fluidPage(
    fluidRow(textOutput(ns('greeting'))) # 用textOutput替代UI中的renderText
  )
}

# 定义模块化server
Second_server = function(input,output,session){
  output$greeting = renderText('Hello, this has changed!') # 将renderText移到server端
} 

# 主UI
ui = fluidPage(
  fluidRow(actionButton('change','Change UI')),
  uiOutput('second') # 添加承载动态UI的容器
)

# 主server
server = function(input,output,session){
  
  observeEvent(input$change,{
    # 正确调用模块化UI函数并传入id
    output$second = renderUI(Second_UI("second_module"))
    # 调用对应的模块化server
    callModule(Second_server, "second_module")
  })
  
}

shinyApp(ui,server)

关键修正说明 #

• 添加UI容器：主UI中新增uiOutput('second')，作为切换后界面的展示载体
• 修正模块化UI逻辑：将renderText从UI端移到模块化server中，UI端仅用textOutput声明输出位置，并通过ns()保证模块化命名空间隔离
• 正确调用模块化组件：renderUI中需调用Second_UI("second_module")传入id，同时在observeEvent内调用callModule启动对应server逻辑
• 命名空间处理：模块化UI中通过ns()包裹输出id，确保不同模块的组件id不冲突

内容的提问来源于stack exchange，提问作者Juan Sebastian Ramírez