-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathRObject.cpp
More file actions
137 lines (116 loc) · 2.51 KB
/
RObject.cpp
File metadata and controls
137 lines (116 loc) · 2.51 KB
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
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
#include <Rcpp.h>
using namespace Rcpp ;
// [[Rcpp::export]]
double asDouble(double d){
return 2*d ;
}
// [[Rcpp::export]]
int asInt(int i){
return 2*i;
}
// [[Rcpp::export]]
std::string asStdString(std::string s){
return s+s ;
}
// [[Rcpp::export]]
Rbyte asRaw( Rbyte i ){
return (Rbyte)(2*i) ;
}
// [[Rcpp::export]]
bool asLogical( bool b){
return !b ;
}
// [[Rcpp::export]]
std::vector<int> asStdVectorInt( SEXP x){
std::vector<int> iv = as< std::vector<int> >(x);
for (size_t i=0; i<iv.size(); i++) {
iv[i] = 2*iv[i];
}
return iv ;
}
// [[Rcpp::export]]
std::vector<double> asStdVectorDouble(SEXP x){
std::vector<double> iv = as< std::vector<double> >( x );
for (size_t i=0; i<iv.size(); i++) {
iv[i] = 2*iv[i];
}
return iv ;
}
// [[Rcpp::export]]
std::vector<Rbyte> asStdVectorRaw( SEXP x){
std::vector<Rbyte> iv = as< std::vector<Rbyte> >( x );
for (size_t i=0; i<iv.size(); i++) {
iv[i] = 2*iv[i];
}
return iv ;
}
// [[Rcpp::export]]
std::vector<bool> asStdVectorBool( SEXP x ){
std::vector<bool> bv = as< std::vector<bool> >( x );
for (size_t i=0; i<bv.size(); i++) {
bv[i].flip() ;
}
return bv ;
}
// [[Rcpp::export]]
std::vector<std::string> asStdVectorString( SEXP x){
std::vector<std::string> iv = as< std::vector<std::string> >( x );
for (size_t i=0; i<iv.size(); i++) {
iv[i] = iv[i] + iv[i];
}
return iv ;
}
// [[Rcpp::export]]
std::set<int> stdsetint(){
std::set<int> iv ;
iv.insert( 0 ) ;
iv.insert( 1 ) ;
iv.insert( 0 ) ;
return iv ;
}
// [[Rcpp::export]]
std::set<double> stdsetdouble(){
std::set<double> ds;
ds.insert( 0.0 );
ds.insert( 1.0 );
ds.insert( 0.0 );
return ds ;
}
// [[Rcpp::export]]
std::set<Rbyte> stdsetraw(){
std::set<Rbyte> bs ;
bs.insert( (Rbyte)0 ) ;
bs.insert( (Rbyte)1 ) ;
bs.insert( (Rbyte)0 ) ;
return bs ;
}
// [[Rcpp::export]]
std::set<std::string> stdsetstring(){
std::set<std::string> ss ;
ss.insert( "foo" ) ;
ss.insert( "bar" ) ;
ss.insert( "foo" ) ;
return ss ;
}
// [[Rcpp::export]]
bool hasAttribute( DataFrame x ){
return has_attr( x, "class" ) ;
}
// [[Rcpp::export]]
SEXP attr_( DataFrame x){
return attr(x, "row.names" ) ;
}
// [[Rcpp::export]]
RObject attr_set(){
RObject y = wrap("blabla") ;
attr(y, "foo") = 10 ;
return y ;
}
// [[Rcpp::export]]
bool isNULL(RObject x){
return is_null(x) ;
}
// [[Rcpp::export]]
bool inherits_( RObject xx){
return inherits( xx, "foo" ) ;
}