[Rcpp-commits] r3628 - pkg/Rcpp/R

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

Author: jmc
Date: 2012-06-07 22:20:40 +0200 (Thu, 07 Jun 2012)
New Revision: 3628

Modified:
   pkg/Rcpp/R/RcppClass.R
Log:
typo in .makeCppFields


Modified: pkg/Rcpp/R/RcppClass.R
===================================================================
--- pkg/Rcpp/R/RcppClass.R	2012-05-29 11:35:36 UTC (rev 3627)
+++ pkg/Rcpp/R/RcppClass.R	2012-06-07 20:20:40 UTC (rev 3628)
@@ -110,7 +110,7 @@
     newFields <- names(fields)
     for(what in cppFields[! cppFields %in% newFields])
         fields[[what]] <- eval(substitute(
-            function(value) if(missing(value)) .CppObject$WHAT else .cppObject$WHAT <- value,
+            function(value) if(missing(value)) .CppObject$WHAT else .CppObject$WHAT <- value,
                  list(WHAT = as.name(what))), env)
     ## insert the generator and cppclass def as constants
     cppgenerator <- getRefClass(cppclassinfo)