Set package checking to as cran. All parallel = FALSE

Author: zkamvar

adegenet.Rproj

@@ -17,4 +17,5 @@ PackageUseDevtools: Yes
 PackageInstallArgs: --no-multiarch --with-keep.source --install-tests
 PackageBuildArgs: --resave-data
 PackageBuildBinaryArgs: --html --latex
+PackageCheckArgs: --as-cran
 PackageRoxygenize: rd,collate,namespace

tests/testthat/test_genlight.R

@@ -1,8 +1,9 @@
 context("Genlight construction")
 
 test_that("Genlight objects can be created predictably", {
-  expect_warning(a <- new("genlight", list(c(1,0,1), c(0,0,1,0)) ))
-  expect_warning(b <- new("genlight", list(c(1,0,1,1,1,1), c(1,0)) ))
+  skip_on_cran()
+  expect_warning(a <- new("genlight", list(c(1,0,1), c(0,0,1,0)), parallel = FALSE ))
+  expect_warning(b <- new("genlight", list(c(1,0,1,1,1,1), c(1,0)), parallel = FALSE ))
   locNames(a) <- letters[1:4]
   locNames(b) <- 1:6
   c <- cbind(a, b)
@@ -14,7 +15,8 @@ test_that("Genlight objects can be created predictably", {
 
 
 test_that("subsetting with/without @other works", {
-  x <- new("genlight", list(a=1,b=0,c=1), other=list(1:3, letters, data.frame(2:4)))
+  skip_on_cran()
+  x <- new("genlight", list(a=1,b=0,c=1), other=list(1:3, letters, data.frame(2:4)), parallel = FALSE)
   pop(x) <- c("pop1","pop1", "pop2")
   expect_that(x[1:2, ]@other[[1]], equals(1:2))
   expect_that(x[1:2, ]@other[[2]], equals(letters))

tests/testthat/test_hierarchy.R

@@ -25,7 +25,7 @@ test_that("Hierarchy methods work for genlight objects", {
   michier <- data.frame(other(microbov))
   make_gl <- function(n = 10, hier = michier){
     objs <- lapply(seq(n), function(x) sample(c(0, 1, NA), 10, replace = TRUE, prob = c(0.49, 0.49, 0.01)))
-    return(new("genlight", objs, hierarchy = hier[sample(704, 10), sample(3, 2)]))
+    return(new("genlight", objs, hierarchy = hier[sample(704, 10), sample(3, 2)], parallel = FALSE))
   }
   set.seed(9999)
   glTest <- lapply(1:10, function(x, y, z) make_gl(y, z), 10, michier)