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

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

Author: romain
Date: 2012-10-30 11:11:11 +0100 (Tue, 30 Oct 2012)
New Revision: 3857

Modified:
   pkg/Rcpp/ChangeLog
   pkg/Rcpp/R/Module.R
Log:
ptomoting the show method

Modified: pkg/Rcpp/ChangeLog
===================================================================
--- pkg/Rcpp/ChangeLog	2012-10-30 08:21:54 UTC (rev 3856)
+++ pkg/Rcpp/ChangeLog	2012-10-30 10:11:11 UTC (rev 3857)
@@ -2,6 +2,7 @@
 
         * include/Rcpp/as.h: new bare_as to simplify uses of as
         * include/Rcpp/module/Module_generated_Factory.h: using bare_as
+        * R/Module.R: promoting the show method
 
 2012-10-29  Dirk Eddelbuettel  <edd at debian.org>
 

Modified: pkg/Rcpp/R/Module.R
===================================================================
--- pkg/Rcpp/R/Module.R	2012-10-30 08:21:54 UTC (rev 3856)
+++ pkg/Rcpp/R/Module.R	2012-10-30 10:11:11 UTC (rev 3857)
@@ -249,6 +249,11 @@
             }
         }
         
+        # promoting show to S4
+        if( any( grepl( "show", names(CLASS at methods) ) ) ){
+            setMethod( "show", clname, function(object) object$show(), where = where )
+        }
+        
     }
     if(length(classes)) {
         module$refClassGenerators <- generators