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

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

Revision: 1777
          http://sourceforge.net/p/r-gregmisc/code/1777
Author:   arnima
Date:     2014-03-19 10:04:49 +0000 (Wed, 19 Mar 2014)
Log Message:
-----------
change warning message to R standards

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

Modified: trunk/gdata/R/keep.R
===================================================================
--- trunk/gdata/R/keep.R	2014-03-01 20:15:05 UTC (rev 1776)
+++ trunk/gdata/R/keep.R	2014-03-19 10:04:49 UTC (rev 1777)
@@ -2,8 +2,8 @@
 {
   if(missing(...) && missing(list))
   {
-    warning("Keep something, or use rm(list=ls()) to clear workspace. ",
-            "Nothing was removed.")
+    warning("keep something, or use rm(list=ls()) to clear workspace - ",
+            "nothing was removed")
     return(invisible(NULL))
   }
   names <- as.character(substitute(list(...)))[-1]
@@ -11,8 +11,8 @@
   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]],
-            "\" 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))
   }
 

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