FazBrowse GitHub Viewer | Trending | | Home

Tools: [Download Repo ZIP] [View Raw Code] [Original HTTPS Page]

cpp11/cpp11test/src/release.cpp at master · coolbutuseless/cpp11 · GitHub

32 lines (29 loc) · 560 Bytes

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

#include <vector>

#include "cpp11/sexp.hpp"

#include "Rcpp.h"

[[cpp11::export]] void cpp11_release_(int n) {

std::vector<cpp11::sexp> x;

int count = 0;

while (count < n) {

x.push_back(Rf_ScalarInteger(count));

++count;

}

count = 0;

while (count < n) {

x.pop_back();

++count;

}

}

[[cpp11::export]] void rcpp_release_(int n) {

std::vector<Rcpp::RObject> x;

int count = 0;

while (count < n) {

x.push_back(Rf_ScalarInteger(count));

++count;

}

count = 0;

while (count < n) {

x.pop_back();

++count;

}

}

Back | FazBrowse Home | New Git URL