copy_env() can selectively copy variables from one envir to another

yihui · Jun 4, 2012 · f64c872 · f64c872
1 parent 0869c3c
commit f64c872
Showing 1 changed file with 2 additions and 5 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -1,9 +1,6 @@
 ## copy objects in one environment to the other
-copy_env = function(from, to) {
-  x = ls(envir = from, all.names = TRUE)
-  for (i in x) {
-    assign(i, get(i, envir = from, inherits = FALSE), envir = to)
-  }
+copy_env = function(from, to, keys = ls(envir = from, all.names = TRUE)) {
+  for (i in keys) assign(i, get(i, envir = from, inherits = FALSE), envir = to)
 }