[Rcpp-commits] r2713 - in pkg/Rcpp: . R

[noreply at r-forge.r-project.org]

Author: romain
Date: 2010-12-04 18:33:57 +0100 (Sat, 04 Dec 2010)
New Revision: 2713

Removed:
   pkg/Rcpp/R/help.R
Modified:
   pkg/Rcpp/DESCRIPTION
   pkg/Rcpp/R/zzz.R
   pkg/Rcpp/TODO
Log:
abandon help workaround

Modified: pkg/Rcpp/DESCRIPTION
===================================================================
--- pkg/Rcpp/DESCRIPTION	2010-12-04 17:26:56 UTC (rev 2712)
+++ pkg/Rcpp/DESCRIPTION	2010-12-04 17:33:57 UTC (rev 2713)
@@ -42,5 +42,4 @@
 License: GPL (>= 2)
 BugReports: http://r-forge.r-project.org/tracker/?atid=637&group_id=155&func=browse
 MailingList: Please send questions and comments regarding Rcpp to rcpp-devel at lists.r-forge.r-project.org
-MinimumSvnRev: 52986
 

Deleted: pkg/Rcpp/R/help.R
===================================================================
--- pkg/Rcpp/R/help.R	2010-12-04 17:26:56 UTC (rev 2712)
+++ pkg/Rcpp/R/help.R	2010-12-04 17:33:57 UTC (rev 2713)
@@ -1,43 +0,0 @@
-# Copyright (C) 2010	Dirk Eddelbuettel and Romain Francois
-#
-# This file is part of Rcpp.
-#
-# Rcpp is free software: you can redistribute it and/or modify it
-# under the terms of the GNU General Public License as published by
-# the Free Software Foundation, either version 2 of the License, or
-# (at your option) any later version.
-#
-# Rcpp is distributed in the hope that it will be useful, but
-# WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with Rcpp.  If not, see <http://www.gnu.org/licenses/>.
-
-.help <- function( what ){
-	print( sprintf( "Rcpp help for '%s'", what ) )
-	invisible(TRUE)
-}
-
-install_help_workaround <- function(){
-	utils <- asNamespace( "utils" )
-	unlockBinding( ".tryHelp", utils )
-	th <- get( ".tryHelp", utils )
-	b <- body( th )
-	b <- as.call( c( 
-			as.name( "{" ), 
-			quote( 
-				if( grepl( "[-]Rcpp$", topic ) ){
-					result <- Rcpp:::.help( sub( "[-]Rcpp$", "", topic ) )
-					if( result )
-						return( invisible(NULL) )
-				}
-			), 
-			as.list( b[-1] )
-		) )
-	body( th ) <- b
-	assign( ".tryHelp", th, utils )
-	lockBinding( ".tryHelp", utils )
-}
- 

Modified: pkg/Rcpp/R/zzz.R
===================================================================
--- pkg/Rcpp/R/zzz.R	2010-12-04 17:26:56 UTC (rev 2712)
+++ pkg/Rcpp/R/zzz.R	2010-12-04 17:33:57 UTC (rev 2713)
@@ -16,13 +16,12 @@
 # along with Rcpp.  If not, see <http://www.gnu.org/licenses/>.
 
 .onLoad <- function(libname, pkgname){
-    install_help_workaround()
     .Call("init_Rcpp_cache", PACKAGE = "Rcpp" )
     minimum_svn_rev <- packageDescription( pkgname )[["MinimumSvnRev"]]
-    if( as.integer(R.version[["svn rev"]]) < as.integer(minimum_svn_rev)){
-        packageStartupMessage(gettextf(paste("R version (%s) older than minimum required (%s)",
-                                             "for full use of reference methods"),
-                                       R.version[["svn rev"]], minimum_svn_rev))
-    }
+    # if( as.integer(R.version[["svn rev"]]) < as.integer(minimum_svn_rev)){
+    #     packageStartupMessage(gettextf(paste("R version (%s) older than minimum required (%s)",
+    #                                          "for full use of reference methods"),
+    #                                    R.version[["svn rev"]], minimum_svn_rev))
+    # }
 }
 

Modified: pkg/Rcpp/TODO
===================================================================
--- pkg/Rcpp/TODO	2010-12-04 17:26:56 UTC (rev 2712)
+++ pkg/Rcpp/TODO	2010-12-04 17:33:57 UTC (rev 2713)
@@ -1,10 +1,6 @@
 
 Documentation
 
-    o   Bring "Rcpp ? NumericVector" into life. The hook is in place, we just need
-        to come up with some way to generate useful documentation for it: general
-        description of the class, related unit test cases, etc ...
-                
     o   Add a vignette about Rcpp sugar [in progress]
     
     o	Finish the quickref vignette