TESTS: Skip more tests unless _R_CHECK_FULL_=true

Author: HenrikBengtsson

appveyor.yml

@@ -5,6 +5,7 @@
 #----------------------------------------------------------------
 environment:
   _R_CHECK_FORCE_SUGGESTS_: false
+  _R_CHECK_FULL_: true
 
   matrix:
   - R_VERSION: devel

tests/batchtools_multicore.R

@@ -34,6 +34,8 @@ for (cores in 1:min(2L, availableCores("multicore"))) {
     y <- value(f)
     print(y)
     stopifnot(y == 42L)
+    
+    if (!supportsMulticore()) next
 
     mprintf("*** batchtools_multicore(..., globals = %s) with globals\n",
           globals)

tests/zzz,future_lapply.R

@@ -3,17 +3,7 @@ library("listenv")
 
 if (requireNamespace("future.apply", quietly = TRUE)) {
   future_lapply <- future.apply::future_lapply
-  
-  cf <- batchtools::makeClusterFunctionsInteractive(external = TRUE)
-  batchtools_custom_local <- function(expr, substitute = TRUE,
-                                      cluster.functions = cf, ...) {
-    if (substitute) expr <- substitute(expr)
-    batchtools_custom(expr, substitute = FALSE, ...,
-                      cluster.functions = cluster.functions)
-  }
-  class(batchtools_custom_local) <- c("batchtools_custom_local",
-                                      class(batchtools_custom))
-  
+    
   message("All HPC strategies:")
   strategies <- c("batchtools_lsf", "batchtools_openlava", "batchtools_sge",
                   "batchtools_slurm", "batchtools_torque")
@@ -22,10 +12,25 @@ if (requireNamespace("future.apply", quietly = TRUE)) {
   message("Supported HPC strategies:")
   strategies <- strategies[sapply(strategies, FUN = test_strategy)]
   mprint(strategies)
+
+  strategies <- c("batchtools_local", strategies)
+  
+  if (fullTest) {
+    strategies <- c("batchtools_interactive", strategies)
+    
+    cf <- batchtools::makeClusterFunctionsInteractive(external = TRUE)
+    batchtools_custom_local <- function(expr, substitute = TRUE,
+                                        cluster.functions = cf, ...) {
+      if (substitute) expr <- substitute(expr)
+      batchtools_custom(expr, substitute = FALSE, ...,
+                        cluster.functions = cluster.functions)
+    }
+    class(batchtools_custom_local) <- c("batchtools_custom_local",
+                                        class(batchtools_custom))
+    strategies <- c("batchtools_custom_local", strategies)
+  }
 
   message("Strategies to test with:")
-  strategies <- c("batchtools_interactive", "batchtools_local",
-                  "batchtools_custom_local", strategies)
   mprint(strategies)