R：在上層函數中賦值

Question

可能是一個簡單的問題，但我無法自己弄清楚，使用環境和範圍確定仍然困惑着我。

我有一個函數，嵌套在一個函數中。我試圖做到的，是分配一個值（使用assign功能，我已閱讀，使用<<-可能是危險的），在其父的嵌套函數，並用它還有：

myfun <- function(m) { 
    m*3*y 
    f1 <- function() { 
    assign(x = y, value = 2, envir = parent.frame()) 
    } 
    f1() 
} 

然而，錯誤是返回：

Error in myfun(m = 5) : object 'y' not found 

另外，如果我有一個函數，嵌套函數嵌套在一個函數，嵌套函數等，我想選擇其中上層指派該值從最低級別的功能？

Answer 1

兩點。在使用y進行計算之前，您需要運行f1()。 x參數assign函數需要字符。

myfun <- function(m) { 
    f1 <- function() { 
    assign(x = "y", value = 2, envir = parent.frame()) 
    } 
    f1() 
    m*3*y 
} 

myfun(5)