R错误：从文件加载时找不到函数

Question

这对我来说有点棘手，但请参阅下面的示例。我试图通过将脚本加载到函数中来隔离一些R脚本的范围。但是，加载“嵌套”函数时这不起作用。下面的示例中，函数'inside'可以在加载后调用，但是'outside'函数错误地指出它无法在内部找到函数。

#this would be in some file 
inside <- function(a, b){ 
    return(a+b) 
}  

outside <- function(c, d){ 
    inside(c, d) 
}  

save.image("my_r_functions.model")  

rm(list = ls())  

#this would be in some other file 
wrapper <- function(d, e){ 
    load("my_r_functions.model") 
    print(paste('inside works: ', inside(d,e))) 
    print('but outside can not find inside') 
    outside(d,e) 
}  

wrapper(1,2) 

输出：

[1] "inside works: 3" 
[1] "but outside can not find inside" 
Error in outside(d, e) : could not find function "inside" 

Answer 1

你没有指定您希望它加载。只需将envir=globalenv()（或envir=environment(wrapper)）添加到要加载的调用中即可。

wrapper <- function(d, e){ 
    load("my_r_functions.model",envir=environment(wrapper)) 
    print(paste('inside works: ', inside(d,e))) 
    print('but outside can not find inside') 
    outside(d,e) 
}  

wrapper(1,2) 

将工作