Commit f23f2b44 authored by Chris Lamb's avatar Chris Lamb 💬

Alias the internal R environment objects to its own variable.

parent 6a8251d9
......@@ -42,8 +42,10 @@ for (x in ls(all.names = TRUE, sorted = TRUE)) {
if (typeof(obj) == "environment") {
cat("\n{\n", sep = "");
for (y in ls(obj, all.names = TRUE, sorted = TRUE))
cat(sprintf(" \"%s\" = \"%s\"\n", y, get(y, envir = obj)), sep = "");
for (y in ls(obj, all.names = TRUE, sorted = TRUE)) {
obj2 = get(y, envir = obj);
cat(sprintf(" \"%s\" = \"%s\"\n", y, obj2), sep = "");
}
cat("}\n");
} else {
for (line in deparse(obj))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment