如何在RStudio项目（Project 2）中调用另一个项目（Project 1）的关联脚本？

我明白你遇到的痛点：当在Project 2里尝试运行Project 1的Launch.R时，里面的source()调用会因为工作目录指向Project 2而找不到文件，here::here()和box::file()也因为绑定当前项目根目录而失效。下面给你几个实用的解决方案，按推荐程度排序：

方法1：用box::source()指定运行目录（最优雅） #

box包的source()函数有个chdir = TRUE参数，能让脚本在自身所在的目录下运行，这样所有内部的source()调用都会自动指向Project 1的文件，不需要修改原脚本的任何代码。

在Project 2里执行以下代码：

# 确保已经安装box包，如果没有先运行：install.packages("box")
box::source("./Project_1/Launch.R", chdir = TRUE)

这个方法的好处是不会改变全局工作目录，也不用修改Project 1里的脚本，完美适配现有代码的关联调用。

方法2：临时切换工作目录（最直接） #

手动切换到Project 1的根目录运行脚本，完成后切回原目录。这种方法不需要额外包，适合快速测试：

# 保存当前工作目录（Project 2的根）
original_wd <- getwd()

# 切换到Project 1的根目录，建议用绝对路径避免相对路径出错
setwd("C:/your/full/path/to/Project_1")  # 替换成你实际的Project 1路径

# 运行Launch.R
source("Launch.R")

# 切回Project 2的工作目录
setwd(original_wd)

注意：如果Project 1的脚本里有修改工作目录的代码，可能会影响这个流程，所以运行前最好检查一下。

方法3：修改Project 1的脚本路径（一劳永逸） #

如果打算长期跨项目调用Project 1的代码，可以修改Launch.R里的路径逻辑，让所有source()调用基于Project 1的根目录，而不是当前工作目录：

# 在Launch.R的最开头添加，定义Project 1的根路径
project1_root <- dirname(rstudioapi::getActiveProject())  # RStudio中打开Project 1时可用
# 或者直接写绝对路径（更稳妥，适合外部调用）
# project1_root <- "C:/your/full/path/to/Project_1"

# 把所有source调用改成基于project1_root的路径
source(file.path(project1_root, "assumptions.R"))
source(file.path(project1_root, "project_env.R"))
source(file.path(project1_root, "selected_assumptions.R"))
source(file.path(project1_root, "output.R"))
source(file.path(project1_root, "run_scenarios.R"))

这样无论从哪个项目运行Launch.R，它都会正确找到Project 1里的依赖脚本。如果Project 1内部还有其他脚本互相source，也要同步修改这些脚本的路径哦。

方法4：用box模块化管理代码（进阶方案） #

如果想让Project 1的代码更易复用，可以把每个脚本改成box模块：

1. 在Project 1的每个脚本开头添加#' @export，导出需要被外部调用的函数或对象（比如assumptions.R里的假设变量）。
2. 在Project 2里直接导入模块：

# 导入单个模块
box::use(./Project_1/assumptions)
box::use(./Project_1/run_scenarios)

# 或者运行整个Launch逻辑（如果把Launch.R也改成模块的话）
box::use(./Project_1/Launch)
Launch::main()  # 假设Launch.R里有个main()函数执行所有流程

这种方法适合长期维护的项目，能让代码结构更清晰，避免依赖工作目录的问题。

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