1- // -*- mode: C++; c-indent-level: 4; c-basic-offset: 4; tab-width: 8 -*-
1+ // -*- mode: C++; c-indent-level: 4; c-basic-offset: 4; indent-tabs-mode: nil; -*-
22//
33// Vector.cpp: Rcpp R/C++ interface class library -- Vector unit tests
44//
@@ -27,14 +27,14 @@ inline double square( double x){ return x*x; }
2727// [[Rcpp::export]]
2828RawVector raw_ (){
2929 RawVector x (10 ) ;
30- for ( int i=0 ; i<10 ; i++) x[i] = (Rbyte)i ;
31- return x ;
30+ for ( int i=0 ; i<10 ; i++) x[i] = (Rbyte)i ;
31+ return x ;
3232}
3333
3434// [[Rcpp::export]]
3535RawVector raw_REALSXP ( RawVector x ){
3636 for ( int i=0 ; i<x.size (); i++) {
37- x[i] = x[i]*2 ;
37+ x[i] = x[i]*2 ;
3838 }
3939 return x ;
4040}
@@ -84,29 +84,29 @@ ComplexVector complex_(){
8484 ComplexVector x (10 ) ;
8585 Rcomplex rc ;
8686 for ( int i=0 ; i<10 ; i++) {
87- rc.r = rc.i = i + 0.0 ;
88- x[i] = rc ;
87+ rc.r = rc.i = i + 0.0 ;
88+ x[i] = rc ;
8989 }
9090 return x ;
9191}
9292
9393// [[Rcpp::export]]
9494ComplexVector complex_CPLXSXP ( ComplexVector x ){
9595 int nn = x.size ();
96- for ( int i=0 ; i<nn; i++) {
97- x[i].r = x[i].r *2 ;
98- x[i].i = x[i].i *2 ;
99- }
100- return x ;
96+ for ( int i=0 ; i<nn; i++) {
97+ x[i].r = x[i].r *2 ;
98+ x[i].i = x[i].i *2 ;
99+ }
100+ return x ;
101101}
102102
103103// [[Rcpp::export]]
104104ComplexVector complex_INTSXP ( SEXP vec ){
105105 ComplexVector x (vec);
106- int nn = x.size ();
107- IntegerVector tmp (nn, 2.0 );
108- ComplexVector tmp1 (tmp);
109- x = x * tmp1;
106+ int nn = x.size ();
107+ IntegerVector tmp (nn, 2.0 );
108+ ComplexVector tmp1 (tmp);
109+ x = x * tmp1;
110110 return x ;
111111}
112112
@@ -123,8 +123,8 @@ ComplexVector complex_REALSXP(SEXP vec){
123123// [[Rcpp::export]]
124124IntegerVector integer_ctor (){
125125 IntegerVector x (10 ) ;
126- for ( int i=0 ; i<10 ; i++) x[i] = i ;
127- return x ;
126+ for ( int i=0 ; i<10 ; i++) x[i] = i ;
127+ return x ;
128128}
129129
130130// [[Rcpp::export]]
@@ -154,26 +154,26 @@ IntegerVector integer_dimension_ctor_3(){
154154// [[Rcpp::export]]
155155IntegerVector integer_range_ctor_1 (){
156156 int x[] = { 0 , 1 , 2 , 3 } ;
157- IntegerVector y ( x, x+4 ) ;
158- return y;
157+ IntegerVector y ( x, x+4 ) ;
158+ return y;
159159}
160160
161161// [[Rcpp::export]]
162162IntegerVector integer_range_ctor_2 (){
163163 std::vector<int > vec (4 ) ;
164- for ( size_t i = 0 ; i<4 ; i++) vec[i] = i;
165- IntegerVector y ( vec.begin (), vec.end () ) ;
166- return y;
164+ for ( size_t i = 0 ; i<4 ; i++) vec[i] = i;
165+ IntegerVector y ( vec.begin (), vec.end () ) ;
166+ return y;
167167}
168168
169169// [[Rcpp::export]]
170170IntegerVector integer_names_set (){
171171 IntegerVector y (2 ) ;
172- std::vector<std::string> names (2 ) ;
173- names[0 ] = " foo" ;
174- names[1 ] = " bar" ;
175- y.names () = names ;
176- return y ;
172+ std::vector<std::string> names (2 ) ;
173+ names[0 ] = " foo" ;
174+ names[1 ] = " bar" ;
175+ y.names () = names ;
176+ return y ;
177177}
178178
179179// [[Rcpp::export]]
@@ -200,9 +200,9 @@ IntegerVector integer_push_front( IntegerVector y ){
200200
201201// [[Rcpp::export]]
202202IntegerVector integer_insert ( IntegerVector y){
203- y.insert ( 0 , 5 ) ;
204- y.insert ( 2 , 7 ) ;
205- return y ;
203+ y.insert ( 0 , 5 ) ;
204+ y.insert ( 2 , 7 ) ;
205+ return y ;
206206}
207207
208208// [[Rcpp::export]]
@@ -270,34 +270,34 @@ IntegerVector integer_create_zero(){
270270// [[Rcpp::export]]
271271List integer_create_ (){
272272 List output (2 );
273- output[0 ] = IntegerVector::create ( 10 , 20 ) ;
274- output[1 ] = IntegerVector::create (
275- _[" foo" ] = 20 ,
276- _[" bar" ] = 30 ) ;
277- return output ;
273+ output[0 ] = IntegerVector::create ( 10 , 20 ) ;
274+ output[1 ] = IntegerVector::create (
275+ _[" foo" ] = 20 ,
276+ _[" bar" ] = 30 ) ;
277+ return output ;
278278}
279279
280280// [[Rcpp::export]]
281281IntegerVector integer_clone_ ( IntegerVector vec ){
282282 IntegerVector dolly = clone ( vec ) ;
283283 for ( size_t i=0 ; i<10 ; i++){
284- dolly[i] = 10 - i ;
284+ dolly[i] = 10 - i ;
285285 }
286286 return dolly ;
287287}
288288
289289// [[Rcpp::export]]
290290NumericVector numeric_ (){
291291 NumericVector x (10 ) ;
292- for ( int i=0 ; i<10 ; i++) x[i] = i ;
293- return x ;
292+ for ( int i=0 ; i<10 ; i++) x[i] = i ;
293+ return x ;
294294}
295295
296296// [[Rcpp::export]]
297297NumericVector numeric_REALSXP ( SEXP vec){
298298 NumericVector x (vec) ;
299299 for ( int i=0 ; i<x.size (); i++) {
300- x[i] = x[i]*2.0 ;
300+ x[i] = x[i]*2.0 ;
301301 }
302302 return x ;
303303}
@@ -320,18 +320,18 @@ NumericVector numeric_importtransform(){
320320// [[Rcpp::export]]
321321List list_ctor (){
322322 List x (10 ) ;
323- for ( int i=0 ; i<10 ; i++) x[i] = Rf_ScalarInteger ( i * 2 ) ;
324- return x ;
323+ for ( int i=0 ; i<10 ; i++) x[i] = Rf_ScalarInteger ( i * 2 ) ;
324+ return x ;
325325}
326-
326+
327327// [[Rcpp::export]]
328328List list_template_ (){
329329 List x (4 ) ;
330- x[0 ] = " foo" ;
331- x[1 ] = 10 ;
332- x[2 ] = 10.2 ;
333- x[3 ] = false ;
334- return x ;
330+ x[0 ] = " foo" ;
331+ x[1 ] = 10 ;
332+ x[2 ] = 10.2 ;
333+ x[3 ] = false ;
334+ return x ;
335335}
336336
337337// [[Rcpp::export]]
@@ -424,11 +424,11 @@ List list_implicit_push_back(){
424424// [[Rcpp::export]]
425425List list_create_ (){
426426 List output (2 );
427- output[0 ] = List::create ( 10 , " foo" ) ;
428- output[1 ] = List::create (
429- _[" foo" ] = 10 ,
430- _[" bar" ] = true ) ;
431- return output ;
427+ output[0 ] = List::create ( 10 , " foo" ) ;
428+ output[1 ] = List::create (
429+ _[" foo" ] = 10 ,
430+ _[" bar" ] = true ) ;
431+ return output ;
432432}
433433
434434// [[Rcpp::export]]
@@ -519,13 +519,13 @@ CharacterVector character_assign1(){
519519// [[Rcpp::export]]
520520CharacterVector character_assign2 (){
521521 std::vector<std::string> vec (4 ) ;
522- vec[0 ] = " foo" ;
523- vec[1 ] = " bar" ;
524- vec[2 ] = " bling" ;
525- vec[3 ] = " boom" ;
526- CharacterVector y ;
527- y.assign ( vec.begin (), vec.end () ) ;
528- return y;
522+ vec[0 ] = " foo" ;
523+ vec[1 ] = " bar" ;
524+ vec[2 ] = " bling" ;
525+ vec[3 ] = " boom" ;
526+ CharacterVector y ;
527+ y.assign ( vec.begin (), vec.end () ) ;
528+ return y;
529529}
530530
531531// [[Rcpp::export]]
@@ -538,12 +538,12 @@ CharacterVector character_range_ctor1(){
538538// [[Rcpp::export]]
539539CharacterVector character_range_ctor2 (){
540540 std::vector<std::string> vec (4 ) ;
541- vec[0 ] = " foo" ;
542- vec[1 ] = " bar" ;
543- vec[2 ] = " bling" ;
544- vec[3 ] = " boom" ;
545- CharacterVector y ( vec.begin (), vec.end () ) ;
546- return y;
541+ vec[0 ] = " foo" ;
542+ vec[1 ] = " bar" ;
543+ vec[2 ] = " bling" ;
544+ vec[3 ] = " boom" ;
545+ CharacterVector y ( vec.begin (), vec.end () ) ;
546+ return y;
547547}
548548
549549// [[Rcpp::export]]
@@ -568,7 +568,7 @@ std::string character_iterator1( CharacterVector letters ){
568568 CharacterVector::iterator last = letters.end () ;
569569 while ( first != last ){
570570 res += *first ;
571- ++first ;
571+ ++first ;
572572 }
573573 return res ;
574574}
@@ -603,28 +603,28 @@ List character_listOf( List ll ){
603603
604604// [[Rcpp::export]]
605605int character_find_ (CharacterVector y){
606- CharacterVector::iterator it = std::find ( y.begin (), y.end (), " foo" ) ;
607- return std::distance ( y.begin (), it );
606+ CharacterVector::iterator it = std::find ( y.begin (), y.end (), " foo" ) ;
607+ return std::distance ( y.begin (), it );
608608}
609609
610610// [[Rcpp::export]]
611611List character_create_ (){
612612 List output (2 );
613- output[0 ] = CharacterVector::create ( " foo" , " bar" ) ;
614- output[1 ] = CharacterVector::create (
615- _[" foo" ] = " bar" ,
616- _[" bar" ] = " foo"
617- ) ;
618- return output ;
613+ output[0 ] = CharacterVector::create ( " foo" , " bar" ) ;
614+ output[1 ] = CharacterVector::create (
615+ _[" foo" ] = " bar" ,
616+ _[" bar" ] = " foo"
617+ ) ;
618+ return output ;
619619}
620620
621621// [[Rcpp::export]]
622622List complex_binary_sugar (ComplexVector xx, ComplexVector yy){
623623 return List::create (
624- _[" +" ] = xx + yy,
625- _[" -" ] = xx - yy,
626- _[" *" ] = xx * yy,
627- _[" /" ] = xx / yy
624+ _[" +" ] = xx + yy,
625+ _[" -" ] = xx - yy,
626+ _[" *" ] = xx * yy,
627+ _[" /" ] = xx / yy
628628 ) ;
629629}
630630
@@ -643,7 +643,7 @@ CharacterVector factors( CharacterVector s){
643643// [[Rcpp::export]]
644644IntegerVector IntegerVector_int_init (){
645645 IntegerVector x (2 ,4 ) ;
646- return x ;
646+ return x ;
647647}
648648
649649// [[Rcpp::export]]
0 commit comments