playing around with dumping variables

list-dump-rscript.R

foo <- function(script_text, file = tempfile(), varlist = list()) {
  e <- list2env(varlist)
  dump(names(e), file = file, envir = e)
  s <- as.character(as.expression(substitute(script_text)))
  cat(s, "\n", file = file, append = TRUE)
  system2("rscript", c("--vanilla", file))
}

foo({a <- mean(a);  length(a)}, varlist = list(a = 1:10))