在另一R脚本中调用script.R脚本（Tableau应用场景）

首先，在R文件之间复用script.R里的计算逻辑非常直接，主要有两种实用方式：

1. 直接用source()加载脚本 #

这是最简便的快速复用方法，在你需要调用逻辑的目标R文件里，添加一行代码即可：

# 若script.R和当前文件在同一目录下
source("script.R")

# 若不在同一目录，需写完整路径（Windows用/或者\\，macOS/Linux用/）
source("C:/your-project-folder/script.R")

执行这行后，calculation1和calculation2就会被加载到当前R环境中，你可以直接像调用本地函数一样使用它们，比如calculation1(your_input_data)。

2. 封装成R包（长期复用更规范） #

如果你的计算逻辑需要长期维护、多人协作，建议把script.R里的代码封装成小型R包：

• 把calculation1和calculation2改写成标准的R函数（比如calc1 <- function(x) { 你的计算逻辑 }）
• 用devtools工具创建包结构，生成可安装的.tar.gz包文件
• 在需要使用的R环境中安装这个包，之后只要执行library(your-package-name)，就能随时调用包里的函数

接下来是在Tableau计算字段中调用这些逻辑的特殊注意事项：
Tableau的Script.R函数运行在沙箱环境中，默认无法直接通过source()加载外部脚本，所以需要调整实现方式：

方案一：直接复制函数代码到Tableau计算字段 #

把script.R里calculation1/calculation2的函数定义直接嵌入Tableau计算字段，举个例子：
假设calculation1是计算加权平均值的函数，原代码是：

calculation1 <- function(values, weights) {
  sum(values * weights) / sum(weights)
}

那么在Tableau中创建计算字段时，写法如下：

script_real("
# 先在Tableau的R沙箱里定义计算函数
calc_weighted_avg <- function(vals, wts) {
  sum(vals * wts) / sum(wts)
}
# 调用函数，.arg1/.arg2对应后面传入的Tableau字段
calc_weighted_avg(.arg1, .arg2)
", SUM([数值字段]), SUM([权重字段]))

注意开头的script_real要和返回值类型匹配：返回整数用script_int，字符串用script_str，布尔值用script_bool。

方案二：把脚本封装成R包，安装到Tableau的R环境 #

如果计算逻辑复杂，不想重复复制代码，可以：

1. 把calculation1/calculation2做成R包，安装到Tableau所使用的R环境中（Tableau默认读取系统R路径，也可以在「设置和性能」→「管理外部服务连接」里手动指定）
2. 在Tableau计算字段中直接调用包中的函数：

script_real("
library(your-package-name)
calculation1(.arg1, .arg2)
", SUM([数值字段]), SUM([权重字段]))

关键提醒 #

• 确保Tableau已正确配置R环境：在「帮助」→「设置和性能」→「管理外部服务连接」里检查R路径是否正确
• 所有在Tableau中用到的R包，都必须提前安装到对应R环境中

内容的提问来源于stack exchange，提问作者I'l Follio