R中函数之外的对象范围

Question

下面我将尝试以简单的方式解释我面临的问题。

• 我在两个文件中有两个 R 脚本 - file1.R 和 file2.R。 file1.R 包含函数 function1()。

• file2.R 在其中包含多个构造函数定义 - constructor1(p1, p2)、constructor2(p3, p4) 等。这些构造函数的实例在 function1() 中使用，存在于 file1.R 中。所以，我使用source("file2.R") 作为file1.R 的第一行。

• 在file2.R 中，constructor2(p1 = rep(1,length(object1)), p2) 使用由function1() 在file1.R 中创建的object1。

file1.R的整体结构如下：

source("file2.R")

function1 <- function()
{

#Read data
data <- readData()

# Second parameter for this function is a instance of constructor1 that is present in file2.R
object1 <- somefunction1(data, listObject$constructor1)

# Second parameter for this function is a instance of a constructor2 that is present in file2.R
# Constructor 2 uses object1 as an input parameter (shown in file2.R)
object2 <- somefunction2(object1, listObject$constructor2)

}

file2.R的整体结构如下：

# List object 
listObject <- list()

#Instance of constructor 1
listObject$constructor1 <- constructor1(p1 = someValue, p2 = someValue)

#Instance of constructor 2
# This is where problem lies. How do I access object1 here?
listObject$constructor2 <- constructor2(p3 =  rep(1,length(object1)), p4 = someValue)

我应该如何定义object1在function1()之外的范围？我尝试在 R 中使用 getter 和 setter 来实现这一点，但我得到了 node stack overflow 错误。我想这个错误源于我在file1.R 和file2.R 中的function1() 和source("file1.R") 之前source("file2.R")。没有这个，只要 R 读取 source("file2.R")，我就会收到 object1 not found 错误。

Answer 1

问题与object1的作用域无关，与死循环有关

source("function1.R") > source("function2.R") > source("function1.R") > etc

第一个示例重现了错误。

---

# file: function1.R

source("function2.R")

function1 <- function(){
    object1 <- 1:10
    function2(p1 = object1, p2 = 2)
}

---

# file: function2.R

source("function1.R")

function2 <- function(p1, p2){
    p1 + p2
}

---

在干净的 R 会话中运行：

source("function1.R")

错误：节点堆栈溢出

现在从第二个文件 function2.R 中删除行 source("function1.R")。

# new file: function2.R

function2 <- function(p1, p2){
    p1 + p2
}

---

再次在干净的 R 会话中运行：

source("function1.R")
function1()
#[1]  3  4  5  6  7  8  9 10 11 12

在function1 范围内创建的对象可以毫无问题地传递给function2。