Leyendo un poco sobre funciones de alto nivel en R, me puse a experimentar con un pequeño código que es una adaptación del que viene aquí:
http://renkun-ken.github.io/blog/2014/03/15/a-brief-introduction-to-higher-order-functions-in-r.html
El código es:
multi <- function(x,y,z, fun) {
suma <- function(x,y,z) {
x+y+z
}
producto <- function(x,y,z) {
x*y*z
}
return(eval(fun(x,y,z)))
}
Como puede verse, funciona bien para las dos operaciones indicadas
multi(21,3,2,suma) #26
multi(21,3,2, producto) #126
Sin embargo, cuando agrego una tercera, obtengo un error:
multi <- function(x,y,z, fun) {
suma <- function(x,y,z) {
x+y+z
}
producto <- function(x,y,z) {
x*y*z
}
potencia <- function(x,y,z) {
x^y^z
}
return(eval(fun(x,y,z)))
}
multi(1,3,2, potencia)
Error in eval(fun(x, y, z)) : objeto 'potencia' no encontrado
No logro entender cuál es la fuente del error, así que cualquier referencia o comentario me sería de mucha utilidad.