actually need to use abs because R is not consistent internally

romainfrancois · romainfrancois · commit 00b1d6be2383 · 2014-04-02T08:25:55.000+02:00
diff --git a/inst/include/Rcpp/DataFrame.h b/inst/include/Rcpp/DataFrame.h
@@ -79,7 +79,7 @@ namespace Rcpp{
             if (Rf_isNull(rn))
                 return 0;
             if (TYPEOF(rn) == INTSXP && LENGTH(rn) == 2 && INTEGER(rn)[0] == NA_INTEGER)
-                return -INTEGER(rn)[1];
+                return abs(INTEGER(rn)[1]);
             return LENGTH(rn);
         }
 

Original file line number	Diff line number	Diff line change
`@@ -79,7 +79,7 @@ namespace Rcpp{`
`79`	`79`	`if (Rf_isNull(rn))`
`80`	`80`	`return 0;`
`81`	`81`	`if (TYPEOF(rn) == INTSXP && LENGTH(rn) == 2 && INTEGER(rn)[0] == NA_INTEGER)`
`82`		`- return -INTEGER(rn)[1];`
	`82`	`+ return abs(INTEGER(rn)[1]);`
`83`	`83`	`return LENGTH(rn);`
`84`	`84`	`}`
`85`	`85`