[解決済み] promise already under evaluation: recursive default argument reference or earlier problems?

質問

以下は私のRコードです。関数は次のように定義されています。

f <- function(x, T) {
  10 * sin(0.3 * x) * sin(1.3 * x ^ 2) + 0.001 * x ^ 3 + 0.2 * x + 80
}

g <- function(x, T, f=f) {
  exp(-f(x) / T)
}

test <- function(g=g, T=1) { 
  g(1, T)
}

実行中のエラーは

> test()
test()でのエラー :
promise already under evaluation: recursive default argument reference or earlier problems?

の定義に置き換えると f の中に g

f

g

test

f

test <- function(g.=g, T=1, f..=f){ g.(1,T, f.=f..) }

f

g <- function(x, T, f=f){ exp(-f*x/T) }

test <- function(g.=g, T=1, f=f){ g.(1,T, f=f.) }