Я заметил некоторое странное поведение в R-ссылочных классах при попытке реализовать некоторую оптимизацию алгоритма. Кажется, есть некоторые позади сцены, разбирающиеся магию, участвующие в инициализации методов в частности, что затрудняет работу с анонимными функциями. Вот пример, который иллюстрирует сложность: я определяю функцию для оптимизации (F_OPT), функции, которая запускается оптимизацией, и ссылочный класс, который имеет эти два в качестве методов. Странное поведение будет яснее в коде
f_opt <- function(x) (t(x)%*%x)
do_optim_opt <- function(x) optim(x,f)
do_optim2_opt <- function(x)
{
f(x) #Pointless extra evaluation
optim(x,f)
}
optClass <- setRefClass("optClass",methods=list(do_optim=do_optim_opt,
do_optim2=do_optim2_opt,
f=f_opt))
oc <- optClass$new()
oc$do_optim(rep(0,2)) #Doesn't work: Error in function (par) : object 'f' not found
oc$do_optim2(rep(0,2)) #Works.
oc$do_optim(rep(0,2)) #Parsing magic has presumably happened, and now this works too.
Это только я, или это выглядит как ошибка для других людей?