r - 嵌套函数：“错误：找不到嵌套函数”

Question

我正在定义一个具有嵌套函数的函数，如下所示：

 afunc <- function(p1, p2) { 

 for loop {
   f = bfunc(p1)
 }
 g = cfunc(p2)

 bfunc <- function(p3) {
   ...
 }

 cfunc <-function(p4){
  ...
 }

}

出于某种原因，我收到“错误：找不到函数“bfunc””。我在这里错过了什么吗？提前致谢。

Answer 1

您需要将函数定义移动到它执行的位置之前：

afunc <- function(p1, p2) { 
 bfunc <- function(p3) {
   ...
 }

 cfunc <-function(p4){
  ...
 }

 for loop {
   f = bfunc(p1)
 }
 g = cfunc(p2)


}