运行迷你元分析Shiny应用脚本报错无法更改工作目录如何解决？

错误原因 #

• rstudioapi::getActiveDocumentContext()$path仅在RStudio中主动打开并选中当前脚本时可正常返回路径，若脚本未保存、运行环境非RStudio、或Shiny启动后server函数运行环境与初始环境脱离，该语句会返回空值，dirname得到无效路径，触发setwd报错。
• 原代码默认依赖运行时工作目录等于脚本所在目录，Shiny启动后工作目录规则会发生变化，进一步放大路径错误概率。

可行解决方案 #

首先确认研讨会提供的依赖脚本minimetacor.R与当前Shiny脚本存放在同一个文件夹中，再选择以下方案修改报错对应代码段即可。

方案1（兼容性最高，推荐） #

将原报错代码段：

this.dir <- dirname(rstudioapi::getActiveDocumentContext()$path)
setwd(this.dir)
source("minimetacor.R")

替换为：

# 优先使用here包处理路径，无额外包则兼容RStudio运行场景
if (requireNamespace("here", quietly = TRUE)) {
  source(here::here("minimetacor.R"))
} else {
  cur_script_path <- rstudioapi::getSourceEditorContext()$path
  if (!is.null(cur_script_path) && file.exists(cur_script_path)) {
    source(file.path(dirname(cur_script_path), "minimetacor.R"))
  } else {
    stop("请先将当前脚本保存到与minimetacor.R相同的文件夹后再运行")
  }
}

运行前先在RStudio中保存当前脚本即可正常启动。

方案2（简易临时方案） #

如果仅在本地固定环境使用，可直接硬编码路径，将报错代码段替换为：

# 将括号内路径替换为两个脚本共同存放的文件夹路径，R中路径需使用正斜杠/
setwd("D:/元分析工具/")
source("minimetacor.R")

额外注意事项 #

• 运行前确认minimetacor.R未被删除、移动或重命名
• 若需分享该工具，优先使用方案1，避免硬编码路径导致其他用户运行失败

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