[[Rcpp::export]]
| 117 | |
| 118 | // [[Rcpp::export]] |
| 119 | SEXP runit_lang_fixedcall(){ |
| 120 | Language call( Function("rnorm"), 10 ) ; |
| 121 | std::vector< std::vector<double> > result(10) ; |
| 122 | std::generate( |
| 123 | result.begin(), result.end(), |
| 124 | fixed_call< std::vector<double> >(call) |
| 125 | ) ; |
| 126 | return wrap( result ); |
| 127 | } |
| 128 | |
| 129 | // [[Rcpp::export]] |
| 130 | SEXP runit_lang_inenv( Environment env){ |