[R-gregmisc-users] SF.net SVN: r-gregmisc: [1239] trunk/gdata/R/keep.R

[<ar...@us...>]

Revision: 1239
          http://r-gregmisc.svn.sourceforge.net/r-gregmisc/?rev=1239&view=rev
Author:   arnima
Date:     2008-01-29 03:09:38 -0800 (Tue, 29 Jan 2008)

Log Message:
-----------
Added argument 'all'.

Modified Paths:
--------------
    trunk/gdata/R/keep.R

Modified: trunk/gdata/R/keep.R
===================================================================
--- trunk/gdata/R/keep.R	2008-01-04 18:59:56 UTC (rev 1238)
+++ trunk/gdata/R/keep.R	2008-01-29 11:09:38 UTC (rev 1239)
@@ -1,4 +1,4 @@
-keep <- function(..., list=character(0), sure=FALSE)
+keep <- function(..., list=character(0), all=FALSE, sure=FALSE)
 {
   if(missing(...) && missing(list))
   {
@@ -8,7 +8,7 @@
   }
   names <- as.character(substitute(list(...)))[-1]
   list <- c(list, names)
-  keep.elements <- match(list, ls(1))
+  keep.elements <- match(list, ls(1,all.names=all))
   if(any(is.na(keep.elements)))
   {
     warning("You tried to keep \"", list[which(is.na(keep.elements))[1]],
@@ -17,8 +17,8 @@
   }
 
   if(sure)
-    rm(list=ls(1)[-keep.elements], pos=1)
+    rm(list=ls(1,all.names=all)[-keep.elements], pos=1)
   else
-    return(ls(1)[-keep.elements])
+    return(ls(1,all.names=all)[-keep.elements])
 }
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.