promise-already-under-evaluation.R

f <- function(return_true = TRUE) {
  function(return_true = return_true) {
    if (return_true) return(TRUE)
    FALSE
  }
}
f()
#> function(return_true = return_true) {
#>     if (return_true) return(TRUE)
#>     FALSE
#>   }
#> <environment: 0x0000000017f285c8>
f()()
#> Error in f()(): promise already under evaluation: recursive default argument reference or earlier problems?

ありがとうございます。すみません、コメントに気付いていませんでした。。
ちょっとまだ理解しきれていないのですが、循環参照なのでこういうエラーになるんですね。なるほどー。

変数名が別なら大丈夫なんですね。

f <- function(return_true_default = TRUE) {
  function(return_true = return_true_default) {
    if (return_true) return(TRUE)
    FALSE
  }
}
f()()
#> [1] TRUE