如何使用 source() 限制函数的范围？

Question

我来自 python，其中 import 以更命名空间的风格表现，我对 R 的背景很少。

我正在尝试开发一个拆分为单独实体的 R 应用程序，但据我了解，R 没有像 python 中的导入。从我收集到的：

• library 用于导入已安装的库，这些库具有自己的命名空间，因此可以使用include.only 降低导入 .R 时发生冲突的风险。
• 如果您的代码是应用程序的一部分，而不是在外部库中，则必须使用源代码。从我收集到的信息来看，source 基本上相当于将 sourced.R 文件的全部内容放入 sourcing.R 文件中。

我在这里讨论第二种情况。不是第一个。我怀疑在这种情况下发生的情况是，如果您有多个具有相同符号的 sourced.R，它们将默默地发生冲突。从python的角度来看，它很像import *。

以下是问题：

1. 我是否正确地说在 sourced.R 中定义的函数都将进入全局环境，而不是它们自己的环境？
2. 如果您对某项进行两次采购会怎样？是否包含两次？
3. 是否有技术或最佳实践解决方案来防止来自恰好具有相同符号名称的源模块的意外冲突？

编辑

这是 G. Grothendieck 建议后的示例：

ex1.R

cat("hello")
source("whatever.R")
source("whatever.R", local=whatever <- new.env())
x()
whatever$x()

cat("whatever")
print(environment())
x <- function() {
    print("x")
}

因此，原则上，可以使用这种策略来确保函数不会全部被推到全局命名空间中并发生冲突。但是，它变成了导入代码的责任，另外，如果维护了任何状态并且两段代码来自同一个模块，它们最终会得到不同的环境，从而导致不同的状态。

底线是环境必须是无状态的。

Answer 1

对于您的问题：

1. 在源脚本中创建的对象将在脚本为sourced 的环境中可用。因此，如果脚本是从全局环境中获取的，那么在源脚本中创建的对象将在全局环境中可用
2. 如果您对某个内容进行了两次来源，则它会被包含一次。就像您运行 x <- 4; x <- 4 一样。在这种情况下，x 只会被包含一次
3. @G。 Grothendieck 建议查看local 参数。您可能还会发现this 答案很有用（如果需要，可以显示全局分配的工作原理）。 Hadley's write up on environments 很全面。

如果有用，我们可以创建以下 2 个文件。只运行first.R 中的代码向我们展示了

• a 变为 2，这表明源脚本中的赋值确实会覆盖其来源环境中的任何名称（这适用于对象/函数等）
• c 等于 8 确认源脚本从其来源的环境中“看到”对象 b

# first.R
# rm(list=ls())
a <- 1
b <- 4
source("second.R", local = new.env())

# second.R
a <- 2 
new_func <- function(x) { x * 2 } 
c <- new_func(b) 
print(a)
print(c)