[[Rcpp::export( rng = true )]]
| 45 | |
| 46 | // [[Rcpp::export( rng = true )]] |
| 47 | List test_rng_true(List x, bool verbose) { |
| 48 | if(x.size() > 0) { |
| 49 | CharacterVector first_element = x[0]; |
| 50 | return List::create(first_element, verbose); |
| 51 | } else { |
| 52 | return List::create(verbose); |
| 53 | } |
| 54 | } |
| 55 | |
| 56 | // [[Rcpp::export( signature = {x = list("{A}", "B"), verbose = getOption("verbose")}, rng = true )]] |
| 57 | List test_rng_true_signature(List x, bool verbose) { |