功能無法「看到」在全球環境中定義等功能

Question

fa <- function(x){x+1} 
fb <- function(x){x-1} 

f1 <- function(x, y){f(x)^y} 

f2 <- function(x, ab, y){ 
    if(ab == 'a'){ 
    f <- fa 
    } else { 
    f <- fb 
    } 
    f1(x, y) 
} 

f2(0, 'a', .5) 
Error in f1(x, y) : could not find function "f" 

因爲f不f1的環境中定義的上述不起作用。

什麼是使這項工作的好方法？這

• 避免了在全球環境中通過一切f2的環境
• 避免了重新定義函數內f2（這將是一個麻煩，並創建複製/粘貼錯誤的機會）

定義某種「子全局」環境是否有意義，並將我希望每個人都在此環境中使用的東西放在一起，然後讓每個函數都能夠訪問「子全局」中的東西？然後以某種方式確保subglobal始終是全球的一個嚴格子集？如果明智的話，我會如何做到這一點？

Answer 1

的，因爲fa和fb沒有在f2的環境中定義上面不起作用。

不 - 他們是。該錯誤是完全不同的：

f1 <- function(x, y){f(x)^y} 

在這裏，您使用的是未定義的變量f，這是一個錯誤。

你有一個不同的變量（容易也叫f）內f2。但是，這與f1無關，因爲f1和f2不共享其本地變量。如果你想通過f2的f到f1那麼你需要將它作爲參數傳遞。

順便說一句，變量名稱如此相似這一事實使得這個過程比必要的更復雜。如果你改變你的代碼下面，等效代碼，問題就變得更加清晰：

plus1 = function (x) x + 1 
minus1 = function (x) x - 1 

f_exp = function (x, y) g(x)^y 

plusminus_exp = function (x, ab, y) { 
    if (ab == 'a') 
     f = plus1 
    else 
     f = minus1 
    f_exp(x, y) 
} 

plusminus_exp(0, 'a', .5) 
# Error in f_exp(x, y) : could not find function "g" 

而這裏的修復：

f_exp = function (x, y, g) g(x)^y 

f_exp(x, y, f) 

另外，如果你調用f_exp許多在plusminus_exp之內，你可以使用一些更高級的抽象創建一個函數生成器：一個返回另一個函數的函數：

make_f_exp = function (f) { 
    force(f) 
    function (x, y) 
     f(x)^y 
} 

plusminus_exp = function (x, ab, y) { 
    f = if (ab == 'a') plus1 else minus1 
    f_exp = make_f_exp(f) 
    f_exp(x, y) 
} 

這使得f_exp可插拔但隔離效果，以避免引入一個全局修改狀態。這是功能性編程語言的非常標準的代碼，但在功能性語言之外很少見，因此對某些人來說有點令人驚訝。