use integer rather than numeric for pkg test

Author: jjallaire

tests/testthat/pkg/RcppParallelTest/src/test.cpp

@@ -8,18 +8,18 @@ using namespace RcppParallel;
 struct Sum : public Worker
 {   
    // source vector
-   const RVector<double> input;
+   const RVector<int> input;
 
    // accumulated value
-   double value;
+   int value;
 
    // constructors
-   Sum(const NumericVector input) : input(input), value(0) {}
+   Sum(const IntegerVector input) : input(input), value(0) {}
    Sum(const Sum& sum, Split) : input(sum.input), value(0) {}
 
    // accumulate just the element of the range I've been asked to
    void operator()(std::size_t begin, std::size_t end) {
-      value += std::accumulate(input.begin() + begin, input.begin() + end, 0.0);
+      value += std::accumulate(input.begin() + begin, input.begin() + end, 0);
    }
 
    // join my value with that of another Sum
@@ -29,7 +29,7 @@ struct Sum : public Worker
 };
 
 // [[Rcpp::export]]
-double parallelVectorSum(NumericVector x) {
+double parallelVectorSum(IntegerVector x) {
 
    // declare the SumBody instance 
    Sum sum(x);

tests/testthat/test-pkg.R

@@ -14,7 +14,7 @@ test_that( "linking from a package works", {
           intern = TRUE, ignore.stderr = TRUE)
    require(RcppParallelTest, lib.loc = templib, quietly = TRUE)
 
-   v <- as.numeric(c(1:10000))
+   v <- as.integer(c(1:1000))
 
    expect_equal( 
       sum(v),