[Rcpp-commits] r3562 - in pkg/RcppBDT: . R man

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

Author: edd
Date: 2012-03-30 19:53:26 +0200 (Fri, 30 Mar 2012)
New Revision: 3562

Modified:
   pkg/RcppBDT/DESCRIPTION
   pkg/RcppBDT/R/zzz.R
   pkg/RcppBDT/man/bdt.Rd
Log:
seems to pass R CMD check now


Modified: pkg/RcppBDT/DESCRIPTION
===================================================================
--- pkg/RcppBDT/DESCRIPTION	2012-03-30 17:41:09 UTC (rev 3561)
+++ pkg/RcppBDT/DESCRIPTION	2012-03-30 17:53:26 UTC (rev 3562)
@@ -1,7 +1,7 @@
 Package: RcppBDT
 Type: Package
 Title: Rcpp bindings for the Boost Date_Time library 
-Version: 0.1.0
+Version: 0.1.0.1
 Date: $Date$
 Author: Dirk Eddelbuettel and Romain Francois
 Maintainer: Dirk Eddelbuettel <edd at debian.org>

Modified: pkg/RcppBDT/R/zzz.R
===================================================================
--- pkg/RcppBDT/R/zzz.R	2012-03-30 17:41:09 UTC (rev 3561)
+++ pkg/RcppBDT/R/zzz.R	2012-03-30 17:53:26 UTC (rev 3562)
@@ -19,19 +19,23 @@
 ## along with RcppBDT.  If not, see <http://www.gnu.org/licenses/>.
 
 
-delayedAssign( "bdt", local( { 
-    x <- new( bdtMod$date ); x$setFromUTC(); x 
-}) )                                                                        
+delayedAssign( "bdt", local( {
+    x <- new( bdtMod$date )
+    x$setFromUTC()
+    x
+}) )
 
 
 .format_date <- function(x, ...) format(x$getDate(), ...)
 .show_date <- function(object) print(object$getDate())
 
 .onLoad <- function (lib, pkg) {
+    req <- get(paste("req", "uire", sep=""))	# we already Imports: methods, but there may
+    req("methods")  	        		# be a race condition lurking
     loadRcppModules(direct=FALSE)
-    
+
     setMethod("show", "Rcpp_date", .show_date)
-    setGeneric( "format", function(x,...) standardGeneric("format") )
+    setGeneric("format", function(x,...) standardGeneric("format") )
     setMethod("format", "Rcpp_date", .format_date )
 
 }

Modified: pkg/RcppBDT/man/bdt.Rd
===================================================================
--- pkg/RcppBDT/man/bdt.Rd	2012-03-30 17:41:09 UTC (rev 3561)
+++ pkg/RcppBDT/man/bdt.Rd	2012-03-30 17:53:26 UTC (rev 3562)
@@ -1,7 +1,7 @@
 \name{bdt}
 \alias{bdt}
 \alias{bdtMod}
-\alias{print,Rcpp_date-method}
+\alias{show,Rcpp_date-method}
 \alias{format,Rcpp_date-method}
 \docType{package}
 \title{Default object for RcppBDT Boost Date_Time binding}
@@ -18,7 +18,7 @@
 }
 \section{Method}{
   \describe{
-    \item{print}{\code{signature(x = "Rcpp_date")}: prints a (BDT) date class object}
+    \item{show}{\code{signature(x = "Rcpp_date")}: prints a (BDT) date class object}
     \item{format}{\code{signature(x = "Rcpp_date")}: formats a (BDT) date class object}
   }
 }