[Rcpp-commits] r2140 - pkg/RcppArmadillo/inst/include

noreply at r-forge.r-project.org noreply at r-forge.r-project.org
Tue Sep 21 17:46:45 CEST 2010


Author: edd
Date: 2010-09-21 17:46:45 +0200 (Tue, 21 Sep 2010)
New Revision: 2140

Modified:
   pkg/RcppArmadillo/inst/include/RcppArmadilloWrap.h
Log:
and once more switch to using get_n_rows() and get_n_cols()


Modified: pkg/RcppArmadillo/inst/include/RcppArmadilloWrap.h
===================================================================
--- pkg/RcppArmadillo/inst/include/RcppArmadilloWrap.h	2010-09-21 15:45:00 UTC (rev 2139)
+++ pkg/RcppArmadillo/inst/include/RcppArmadilloWrap.h	2010-09-21 15:46:45 UTC (rev 2140)
@@ -120,8 +120,8 @@
     	
     	template <typename T1, typename eop_type>
     	SEXP wrap_eop( const arma::eOp<T1,eop_type>& X, ::Rcpp::traits::false_type ){
-    		int n_rows = X.P.n_rows ;
-    		int n_cols = X.P.n_cols ;
+		int n_rows = X.P.get_n_rows();
+    		int n_cols = X.P.get_n_cols();
     		typedef typename ::Rcpp::Vector< ::Rcpp::traits::r_sexptype_traits< typename T1::elem_type>::rtype > VECTOR ;
     		VECTOR res(::Rcpp::Dimension( n_rows , n_cols )) ;
     		::arma::Mat<typename T1::elem_type> result( res.begin(), n_rows, n_cols, false ) ;



More information about the Rcpp-commits mailing list