[R-gregmisc-users] SF.net SVN: r-gregmisc: [1281] trunk/gtools/R/checkRVersion.R

[<wa...@us...>]

Revision: 1281
          http://r-gregmisc.svn.sourceforge.net/r-gregmisc/?rev=1281&view=rev
Author:   warnes
Date:     2008-05-22 09:35:17 -0700 (Thu, 22 May 2008)

Log Message:
-----------
Add checkRVersion.R file

Added Paths:
-----------
    trunk/gtools/R/checkRVersion.R

Added: trunk/gtools/R/checkRVersion.R
===================================================================
--- trunk/gtools/R/checkRVersion.R	                        (rev 0)
+++ trunk/gtools/R/checkRVersion.R	2008-05-22 16:35:17 UTC (rev 1281)
@@ -0,0 +1,28 @@
+checkRVersion <- function(quiet=FALSE)
+  {
+    page <- scan(file="http://cran.r-project.org/src/base/R-2", what="", quiet=TRUE)
+    matches <- grep("R-[0-9]\\.[0-9]+\\.[0-9]+", page, value=TRUE)
+    versionList <- gsub("^.*R-([0-9].[0-9]+.[0-9]+).*$","\\1",matches)
+    versionList <- numeric_version(versionList)
+    if( max(versionList) > getRversion() )
+      {
+        if(!quiet)
+          {
+            cat("A newer version of R is now available: ")
+            cat(max(versionList))
+            cat("\n")
+          }
+        invisible( max(versionList) )
+     }
+    else
+      {
+        if(!quiet)
+          {
+            cat("The latest version of R is installed: ")
+            cat(as.character(getRversion()))
+            cat("\n")
+          }
+        invisible( NULL );
+      }
+    
+  }


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