如何使用source()函数正确启动R Shiny应用

R Shiny开发时使用source函数启动目标Shiny应用，执行以下两类代码均无报错，但Shiny应用始终无法启动，确认是否遗漏必要配置或参数：

# 代码运行无报错，但无法启动Shiny应用
source("path/to/my/Shiny_app.R")

# 加local参数的写法同样启动失败
source("path/to/my/Shiny_app.R", local = T) 

核心问题是source()函数的作用只是执行目标路径下的R脚本、将脚本内定义的对象加载到对应环境中，不会自动触发Shiny应用的启动逻辑，常见踩坑场景和对应解决方法如下：

• 场景1：单文件app脚本末尾已经写了shinyApp(ui, server)启动语句，但启动失败
  这种情况大多是路径问题导致的：source()默认不会切换工作目录到脚本所在文件夹，如果app脚本里用相对路径读取了依赖文件、静态资源，会因为路径不匹配静默加载失败，最终无法启动。给source()加上chdir = TRUE参数即可，执行时会临时切换工作目录到脚本所在路径，保证依赖加载正常：

  source("path/to/my/Shiny_app.R", chdir = TRUE)
  

  额外检查：如果你的启动语句写在if (interactive())判断块中，需要确认当前是在RStudio、R控制台这类交互式环境下运行，非交互环境下判断块内代码不会执行，自然不会启动app。
• 场景2：app脚本内只定义了ui、server对象，没有写显式启动语句
  这种情况source()执行完只是把ui、server两个变量加载到环境里，不会做任何启动操作，有两种修复方式：
  1. source加载完成后手动调用启动函数：

     # 加载脚本内定义的对象
     source("path/to/my/Shiny_app.R", chdir = TRUE)
     # 手动触发app启动
     shiny::shinyApp(ui, server)
     

  2. 直接用Shiny官方提供的启动函数，不需要手动source，自动处理路径、依赖加载、启动全流程，是更推荐的写法：

     shiny::runApp("path/to/my/Shiny_app.R")
     

注意：不要随意给source()加local = TRUE参数，这个参数会把脚本里定义的所有对象存到临时局部环境中，source执行完成后临时环境会自动销毁，后续就算调用启动函数也找不到对应的ui、server对象，必然启动失败。

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