vou fazer um teste. pelo que vi o get carrega a definição do objeto, no caso, uma função.
o que eu achei no meio das buscas aqui foi esse código, mas acho que resolve parcial também.
f <- function(x) {
if (!is.list(x)) x <- list(x)
if (is.null(names(x))) names(x) <- ""
names(x)[names(x) == ""] <- NA
mc <- match.call()[-1][[1]]
if (length(mc) > 1) mc <- mc[-1]
ifelse(is.na(names(x)), as.character(mc), names(x))
}
f(c(a = mean))
f(list(a = mean, b = sd))
f(c(f = function(x)x*x))
f(list(f = function(x)x*x, function(x)1-x))
L <- list(a = mean, b = sd)
f(L)
L <- list(a = mean, function(x)x)
f(L)
f(mean)
f(list(a = mean, sd))
f(list(mean, sd))
f(function(x)x*x)
f(list(function(x)x*x, function(y)y-1))obrigado pelo esforço. vou dar uma testada.