Вложенные функции: «Ошибка: не удалось найти вложенную функцию»

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)


}