如何在R中为多用户统一设置路径前缀不同的OngoingProjects工作目录？

方案1：利用OneDrive环境变量+递归查找 #

Windows系统会为OneDrive设置专属环境变量，商业版通常是OneDriveCommercial，个人版为OneDrive。可以先获取OneDrive根路径，再递归定位OngoingProjects文件夹：

# 获取OneDrive商业版根路径（个人版替换为Sys.getenv("OneDrive")）
onedrive_root <- Sys.getenv("OneDriveCommercial")

# 递归遍历OneDrive目录，筛选出目标文件夹
target_dir <- list.dirs(path = onedrive_root, recursive = TRUE, full.names = TRUE)
target_dir <- target_dir[grepl("OngoingProjects$", target_dir)]

# 拼接最终脚本路径，未找到则抛出提示
if (length(target_dir) > 0) {
  script_path <- file.path(target_dir[1], "file.R")
} else {
  stop("未找到OngoingProjects文件夹，请检查OneDrive同步设置")
}

这个方法会自动适配不同的同步层级，不管OngoingProjects是直接同步还是嵌套在Documents目录下。

方案2：用本地配置文件统一路径 #

如果递归查找效率偏低，可以让团队成员创建一个本地配置文件（比如config.R），内容仅需指定自身的目标文件夹路径：

ongoing_projects_path <- "C:/Users/theirname/CompanyOneDriveName/Documents/OngoingProjects"

主脚本通过读取配置文件获取路径：

# 读取本地配置（确保每个同事都在脚本同目录下放好config.R）
source("config.R")
script_path <- file.path(ongoing_projects_path, "file.R")

这种方式更直接，也避免了目录遍历的开销，适合团队内部统一约定。

方案3：从用户目录模糊匹配OneDrive路径 #

如果OneDrive环境变量不可用，可以从用户根目录出发，先定位公司OneDrive的目录，再查找目标文件夹：

# 获取当前用户根目录
user_root <- path.expand("~")

# 筛选出包含公司OneDrive名称的目录
onedrive_dirs <- list.dirs(path = user_root, recursive = FALSE, full.names = TRUE)
onedrive_dirs <- onedrive_dirs[grepl("CompanyOneDriveName", onedrive_dirs)]

if (length(onedrive_dirs) > 0) {
  # 在OneDrive目录下递归查找目标文件夹
  target_dir <- list.dirs(path = onedrive_dirs[1], recursive = TRUE, full.names = TRUE)
  target_dir <- target_dir[grepl("OngoingProjects$", target_dir)]
  
  if (length(target_dir) > 0) {
    script_path <- file.path(target_dir[1], "file.R")
  } else {
    stop("未找到OngoingProjects文件夹")
  }
} else {
  stop("未找到公司OneDrive目录")
}

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