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)


}