如何合并两个独立Shiny应用且无需重写原有代码？

无需重写原有应用的业务逻辑，仅需做少量入口调整即可完成合并，以下是两种常用实现方案：

• 方案1：无侵入source调用（适合两个应用无重名input/output id的场景）
  先确认目录结构如下：

  合并项目根目录/
  ├── shinyapp1/
  │   └── app.R # Shinyapp1原有完整代码，仅需注释掉最后一行`shinyApp(ui, server)`
  ├── shinyapp2/
  │   └── app.R # Shinyapp2原有完整代码，仅需注释掉最后一行`shinyApp(ui, server)`
  └── combine_app.R # 合并入口文件
  

  combine_app.R代码如下：

  library(shiny)
  
  # 导入应用1的UI和server，local参数避免变量污染全局环境
  source("./shinyapp1/app.R", local = TRUE)
  ui1 <- ui
  server1 <- server
  
  # 导入应用2的UI和server
  source("./shinyapp2/app.R", local = TRUE)
  ui2 <- ui
  server2 <- server
  
  ui <- navbarPage("Combine 2 Shinyapps",
             tabPanel("Shinyapp1", ui1),
             tabPanel("Shinyapp2", ui2)
  )
  
  server <- function(input, output, session) { 
    server1(input, output, session)
    server2(input, output, session)
  }
  shinyApp(ui, server)
  

  该方案改动极小，仅需注释掉两个子应用原有启动代码即可，缺点是如果两个应用存在重名的input、output id，会出现逻辑冲突。

• 方案2：模块封装调用（适合存在id冲突的场景，无业务逻辑改动）
  给两个子应用分别套一层Shiny模块外壳，完全隔离命名空间，不会出现id冲突：

  1. 改造Shinyapp1的代码：

  # 新增模块UI函数
  app1_ui <- function(id) {
    ns <- NS(id)
    # 原有UI代码原封不动放入，所有input/output的id用ns()包裹即可
    # 示例：原有`selectInput("city", "选择城市", choices = c("北京","上海"))`改为`selectInput(ns("city"), "选择城市", choices = c("北京","上海"))`
  }
  
  # 新增模块server函数
  app1_server <- function(id) {
    moduleServer(id, function(input, output, session) {
      # 原有server代码原封不动放入即可，无需修改任何id引用
    })
  }
  

  2. 按照同样逻辑改造Shinyapp2的代码，得到app2_ui和app2_server
  3. 合并入口代码：

  library(shiny)
  
  # 导入改造后的两个子应用代码
  source("./shinyapp1/app.R", local = TRUE)
  source("./shinyapp2/app.R", local = TRUE)
  
  ui <- navbarPage("Combine 2 Shinyapps",
             tabPanel("Shinyapp1", app1_ui("app1")),
             tabPanel("Shinyapp2", app2_ui("app2"))
  )
  
  server <- function(input, output, session) { 
    app1_server("app1")
    app2_server("app2")
  }
  shinyApp(ui, server)
  

  该方案仅需给原有代码加一层模块封装，不需要修改任何业务逻辑，彻底解决id、全局变量冲突问题，是更推荐的实现方式。

如果需要实现两个子应用之间的数据交互，可以在父级server定义共享的reactive变量，传入子模块server即可。相关实现示例可以通过搜索「shiny combine multiple apps」关键词找到公开的代码仓库参考。

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