[Seqinr-commits] r1621 - pkg/R

[noreply at r-forge.r-project.org]

Author: lobry
Date: 2009-07-17 23:45:06 +0200 (Fri, 17 Jul 2009)
New Revision: 1621

Added:
   pkg/R/move.R
Log:
new function

Added: pkg/R/move.R
===================================================================
--- pkg/R/move.R	                        (rev 0)
+++ pkg/R/move.R	2009-07-17 21:45:06 UTC (rev 1621)
@@ -0,0 +1,9 @@
+move <- function(from, to){
+  noms <- as.list(match.call())
+  if(noms$from != noms$to){
+    eval.parent(parse(text = paste(noms$from, "->", noms$to)))
+    eval.parent(parse(text = paste("rm(", noms$from, ")")))
+  }
+}
+
+mv <- move