返回嵌入另一個功能

Question

我想問一下我們如何能夠得到被嵌入另一個函數的函數的值，如下面的示例函數的值：

message <- function() { 
    inside.message <- function() { 
     return("inside.message") 
    } 
} 

run.f <- function() { 
    return.inside.mesage <- message() 
    print(return.inside.mesage) 
}   

run.f() # We do not get "inside.message" 

謝謝你所有人

Answer 1

當你寫的，而如果評估message返回函數的函數，將返回「inside.message」。所以有幾種方法可以讓R打印「inside.message」。

第一種方式：

在message功能，添加行return(inside.message())以便函數inside.message進行評估並返回結果，而不是返回本身的功能：

message <- function() { 
    inside.message <- function() { 
    return("inside.message") 
    } 
    return(inside.message()) 
} 

message() 
# "inside.message" 

然後評估run.f()也會打印「inside.message」。

第二種方式：

離開message因爲你擁有它，改變run.f()以下

run.f <- function() { 
    return.inside.mesage <- message() 
    print(return.inside.mesage()) 
} 

上面，你可以指定由message()返回到對象return.inside.message功能，然後評估該功能。

Answer 2

正如你所寫，message返回函數inside.message，因爲你沒有明確地返回任何東西，它是在message裏面評估的最後一個表達式。

你似乎希望它從評估inside.message，這需要message另一行代碼返回值：

message <- function() { 
    inside.message <- function() { 
     return("inside.message") 
    } 
    inside.message() 
} 

Answer 3

在你的代碼消息（）中返回一個函數。要調用它，你需要添加括號的一對額外的：

> message()() 
[1] "inside.message" 

如果更換的消息消息（）（）（）在你的代碼會做你想要什麼。