### system("R CMD SHLIB dotcall.c") dyn.load("cfuncs/dotcall.so") myf <- function(x) mean(x) + 100 a <- runif(10) .Call("r_fun_eval", myf, a, environment(myf)) b <- list(a=1:5, b=letters[1:10], d="teste") myf2 <- function(x) length(x) .Call("mylapply", b, myf2, environment(myf2))