Passing tfd evaluator from variable can't find the function

[m-muecke]

library(tf)
#> 
#> Attaching package: 'tf'
#> The following objects are masked from 'package:stats':
#> 
#>     sd, var
x <- "tf_approx_linear"
tfd(1:10, evaluator = x)
#> Error in get(evaluator, mode = "function", envir = parent.frame()): object 'x' of mode 'function' was not found

^{Created on 2024-08-08 with reprex v2.1.1}

[fabian-s]

probably just need to adapt the code from tf_evaluator<-?

f <- "tf_approx_spline"
z <- tfd(1:10)
tf_evaluator(z) <- f
z
# tfd[1] on (1,10) based on 10 evaluations each
# interpolation by tf_approx_spline 

works