功能流程：爲什麼這個函數返回20

Question

假設我有一個叫l功能：

l <- function(x) x + 1 

然後定義另一個函數，m，但內m，重新定義l：

m <- function() { 
     l <- function(x) x*2 
     l(10) 
} 
m() 

爲什麼m返回x*2，而不是x+1？

Answer 1

如果您不確定發生了什麼，可以添加一些打印語句。讓我們添加一些打印語句代碼 - 一個m之前調用，兩個m函數裏面，一個m後叫：

l <- function(x) x + 1 
m <- function() { 
    print(l) 
    l <- function(x) x * 2 
    print(l) 
    l(10) 
} 
print(l) 
# function(x) x + 1 
m() 
# function(x) x + 1 
# function(x) x * 2 
# <environment: 0x7f8da5ac3b58> 
# [1] 20 
print(l) 
# function(x) x + 1 

m之前被調用，並在m頂部，l是定義爲返回x+1的函數。但是，在m內，您將l更改爲一個新函數，該函數返回x*2，如該函數中的第二個打印語句所示。因此，呼叫l(10)返回20.最後，一旦您離開該功能，您將回到原始的l定義（x+1），因爲x*2版本僅爲該功能定義。僅在本地定義的功能的概念被稱爲name masking。