x <- list();
x$case1 <- env({
# Cut'n'pasted from elsewhere
a <- 1;
b <- 2;
});
x$case2 <- env({
# Cut'n'pasted from elsewhere
foo <- function(x) x^2;
a <- foo(2);
b <- 1;
rm(foo); # Not needed anymore
});
# Turn into a list of lists
x <- lapply(x, FUN=as.list);
str(x);
Run the code above in your browser using DataLab