如何正确“保存”使用全局命名空间变量的函数？

Question

• 我有两台仪器 A、B，它们彼此“关闭”，存在一些系统误差。例如。 A 始终从 B 读取 +5。
• 所以，我需要一个函数A_to_B，它将 A 的读数映射到 B，例如A = B + 5
• 我在脚本中编写了这个函数，使用 A 对 B 的线性模型。
• 但是，我在其他任何地方都使用这些工具，所以我在其他脚本中需要它。
• 所以，我尝试save 函数。

AB.readings <- read.csv('AB.csv')
AvB.lm <- lm(A~B+I(B^2), data=AB.readings)
A_to_B <- function(a) {
    coeff <- AvB.lm$coefficients - c(a, 0, 0)
    roots <- Re(polyroot(coeff))
    return(roots[roots>=0])  # A, B readings > 0
}
save(AvB.lm, A_to_B, file='calibration.RData')

但是，当我尝试在其他脚本中加载和使用此功能时：

source('calibration.RData')
AB.readings <- read.csv('AB2.csv')
AB.readings$A <- A_to_B(AB.readings$A)

我得到错误：

Error in A_to_B(AB.readings$A) : object 'AvB.lm' not found
Execution halted

所以很明显我在范围界定方面做错了。

---

在 R 中执行此操作的正确方法是什么？

Answer 1

您应该使用load 而不是source。来自文档：

save 将 R 对象的外部表示写入指定文件。以后可以使用函数load 或attach（或data，在某些情况下）从文件中读回对象。

旁注：RAB 上面的注释（Rdata 是用于数据，而不是函数。）不正确，save 也会保存函数。回想一下everything in R is an object，包括函数。 save 编写 R 对象的外部表示，因此 save 也将编写函数的外部表示。