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.
|