R脚本打包为exe可执行文件引入rstudioapi代码闪退问题咨询

• rstudioapi包的所有接口仅在RStudio IDE运行环境下生效，打包为exe后的执行环境是独立的R嵌入运行时，不存在RStudio进程，调用rstudioapi::getSourceEditorContext()会直接抛出无有效上下文的错误，导致脚本执行终止、程序闪退。
• 原代码逻辑是获取当前RStudio编辑器内打开的脚本所在路径，打包为exe后不存在“RStudio编辑器打开的脚本”这个对象，自然无法获取对应路径。

如果你需要获取exe文件本身的运行目录，替换原有代码为如下兼容逻辑即可：

# 兼容开发环境与打包后运行环境的路径获取代码
if (interactive()) {
  # RStudio交互式开发环境下的路径获取
  workd = dirname(rstudioapi::getSourceEditorContext()$path)
} else {
  # 打包后非交互式运行环境下的路径获取
  cmd_args = commandArgs(trailingOnly = FALSE)
  workd = dirname(cmd_args[grepl("^--file=", cmd_args)])
  workd = gsub("^--file=", "", workd)
  workd = normalizePath(workd, winslash = "/")
}
setwd(workd)

• 上述代码会自动判断运行环境：交互式开发时调用rstudioapi获取路径，打包运行时从命令行参数中提取当前执行程序的所在目录，不会出现环境不兼容的报错。

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