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

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

Revision: 1042
          http://svn.sourceforge.net/r-gregmisc/?rev=1042&view=rev
Author:   arnima
Date:     2007-01-28 02:42:24 -0800 (Sun, 28 Jan 2007)

Log Message:
-----------
Throw warnings rather than errors

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

Modified: trunk/gdata/R/keep.R
===================================================================
--- trunk/gdata/R/keep.R	2007-01-27 11:36:34 UTC (rev 1041)
+++ trunk/gdata/R/keep.R	2007-01-28 10:42:24 UTC (rev 1042)
@@ -1,14 +1,20 @@
 keep <- function(..., list=character(0), sure=FALSE)
 {
   if(missing(...) && missing(list))
-    stop("Keep something, or use rm(list=ls()) to clear workspace.")
+  {
+    warning("Keep something, or use rm(list=ls()) to clear workspace. ",
+            "Nothing was removed.")
+    return(invisible(NULL))
+  }
   names <- as.character(substitute(list(...)))[-1]
   list <- c(list, names)
   keep.elements <- match(list, ls(1))
-
   if(any(is.na(keep.elements)))
-    stop("You tried to keep \"", list[which(is.na(keep.elements))[1]],
-         "\" which doesn't exist in workspace. Nothing was removed.", sep="")
+  {
+    warning("You tried to keep \"", list[which(is.na(keep.elements))[1]],
+            "\" which doesn't exist in workspace. Nothing was removed.", sep="")
+    return(invisible(NULL))
+  }
 
   if(sure)
     rm(list=ls(1)[-keep.elements], pos=1)


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