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

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

Revision: 1693
          http://sourceforge.net/p/r-gregmisc/code/1693
Author:   warnes
Date:     2013-07-05 17:29:07 +0000 (Fri, 05 Jul 2013)
Log Message:
-----------
Update for R version 3.0.0 and later

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

Modified: trunk/gtools/R/checkRVersion.R
===================================================================
--- trunk/gtools/R/checkRVersion.R	2013-06-29 01:40:47 UTC (rev 1692)
+++ trunk/gtools/R/checkRVersion.R	2013-07-05 17:29:07 UTC (rev 1693)
@@ -1,7 +1,13 @@
 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)
+    page2 <- scan(file="http://cran.r-project.org/src/base/R-2",
+                  what="", quiet=TRUE)
+    page3 <- scan(file="http://cran.r-project.org/src/base/R-3",
+                  what="", quiet=TRUE)
+
+    combined <- c(page2, page3)
+    
+    matches <- grep("R-[0-9]\\.[0-9]+\\.[0-9]+", combined, value=TRUE)
     versionList <- gsub("^.*R-([0-9].[0-9]+.[0-9]+).*$","\\1",matches)
     versionList <- numeric_version(versionList)
     if( max(versionList) > getRversion() )

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