search for: sillysum

...> case LGLSXP:\ > > ITERATE_BY_REGION(sx, ptr, ind, nbatch, int, LOGICAL, expr);\ > > break; \ > > default:\ > > Rf_error("Unknow data type\n"); \ > > break; \ > > } > > > > // [[Rcpp::export]] > > double sillysum(SEXP x) { > > double s = 0.0; > > type_free_iter(x, ptr, ind, nbatch, > > { > > for (int i = 0; i < nbatch; i++) { s = s + ptr[i]; } > > }); > > return s; > > } > > > &...

Hi devel team, I'm working on C/C++ level ALTREP compatibility for a package. The package previously used pointers to access the data of a SEXP, so it would not work for some ALTREP objects which do not have a pointer. I plan to rewrite the code and use functions like get_elt, get_region, and get_subset to access the values of a vector, so I have a few questions for ALTREP: 1. Since an

...ITERATE_BY_REGION(sx, ptr, ind, nbatch, double, REAL, expr);\ break; \ case LGLSXP:\ ITERATE_BY_REGION(sx, ptr, ind, nbatch, int, LOGICAL, expr);\ break; \ default:\ Rf_error("Unknow data type\n"); \ break; \ } // [[Rcpp::export]] double sillysum(SEXP x) { double s = 0.0; type_free_iter(x, ptr, ind, nbatch, { for (int i = 0; i < nbatch; i++) { s = s + ptr[i]; } }); return s; } Best, Jiefei On Wed, Aug 28, 2019 at 2:32 PM Wang Jiefei <szwjf08 at g...

...> >> > >> default:\ > >> > >> Rf_error("Unknow data type\n"); \ > >> > >> break; \ > >> > >> } > >> > >> > >> > >> // [[Rcpp::export]] > >> > >> double sillysum(SEXP x) { > >> > >> double s = 0.0; > >> > >> type_free_iter(x, ptr, ind, nbatch, > >> > >> { > >> > >> for (int i = 0; i < nbatch; i++) { s = s + ptr[i]; } > >> > &gt...

...atch, int, LOGICAL, expr);\ >> >> break; \ >> >> default:\ >> >> Rf_error("Unknow data type\n"); \ >> >> break; \ >> >> } >> >> >> >> // [[Rcpp::export]] >> >> double sillysum(SEXP x) { >> >> double s = 0.0; >> >> type_free_iter(x, ptr, ind, nbatch, >> >> { >> >> for (int i = 0; i < nbatch; i++) { s = s + ptr[i]; } >> >> }); >> >>...