Rcpp/inst/tinytest/testRcppAttributePackage/src/rcpp_test.cpp at master · RcppCore/Rcpp · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
#include <Rcpp.h>
using namespace Rcpp;

// [[Rcpp::interfaces(r, cpp)]]

// [[Rcpp::export]]
List test_no_attributes(List x, bool verbose) {
  if(x.size() > 0) {
    CharacterVector first_element = x[0];
    return List::create(first_element, verbose);
  } else {
    return List::create(verbose);
  }
}

// [[Rcpp::export( signature = {x = list("{A}", "B"), verbose = getOption("verbose")} )]]
List test_signature(List x, bool verbose) {
  if(x.size() > 0) {
    CharacterVector first_element = x[0];
    return List::create(first_element, verbose);
  } else {
    return List::create(verbose);
  }
}

// [[Rcpp::export( rng = false, signature = {x = list("{A}", "B"), verbose = getOption("verbose")}, invisible = true )]]
List test_rng_false_signature_invisible_true(List x, bool verbose) {
  if(x.size() > 0) {
    CharacterVector first_element = x[0];
    return List::create(first_element, verbose);
  } else {
    return List::create(verbose);
  }
}

// [[Rcpp::export( rng = false )]]
List test_rng_false(List x, bool verbose) {
  if(x.size() > 0) {
    CharacterVector first_element = x[0];
    return List::create(first_element, verbose);
  } else {
    return List::create(verbose);
  }
}

// [[Rcpp::export( rng = true )]]
List test_rng_true(List x, bool verbose) {
  if(x.size() > 0) {
    CharacterVector first_element = x[0];
    return List::create(first_element, verbose);
  } else {
    return List::create(verbose);
  }
}

// [[Rcpp::export( signature = {x = list("{A}", "B"), verbose = getOption("verbose")}, rng = true )]]
List test_rng_true_signature(List x, bool verbose) {
  if(x.size() > 0) {
    CharacterVector first_element = x[0];
    return List::create(first_element, verbose);
  } else {
    return List::create(verbose);
  }
}


// [[Rcpp::export( invisible = true, rng = true )]]
List test_invisible_true_rng_true(List x, bool verbose) {
  if(x.size() > 0) {
    CharacterVector first_element = x[0];
    return List::create(first_element, verbose);
  } else {
    return List::create(verbose);
  }
}

// [[Rcpp::export( invisible = true )]]
List test_invisible_true(List x, bool verbose) {
  if(x.size() > 0) {
    CharacterVector first_element = x[0];
    return List::create(first_element, verbose);
  } else {
    return List::create(verbose);
  }
}

// [[Rcpp::export( invisible = true, signature = {x = list("{A}", "B"), verbose = getOption("verbose")} )]]
List test_invisible_true_signature(List x, bool verbose) {
  if(x.size() > 0) {
    CharacterVector first_element = x[0];
    return List::create(first_element, verbose);
  } else {
    return List::create(verbose);
  }
}