嵌套函数：“错误：无法找到嵌套函数”

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)


}