Lower number of genes to test (#128)

* Lower number of genes to test

* Increaase number of genes

Author: rhenkin

R/parse_config.R

@@ -377,7 +377,8 @@ loadModels <- function(models_file,
     delim <- ifelse(fext == "csv", ",", "\t")
     models_table <- data.table::fread(file_path(data_folder, models_file),
       sep = delim,
-      data.table = FALSE
+      data.table = FALSE,
+      nThread = nthreads
     )
   }
   if (ncol(models_table) < 2) {

tests/testthat/helper-workflow.R

@@ -14,12 +14,12 @@ measures_data <- data.frame(
     var_b = c("a", "a", "b", "b")
 )
 
-m <- 1000
+m <- 250
 preffix <- do.call(paste0, replicate(4, sample(LETTERS, m, TRUE), FALSE))
 suffix <- do.call(paste0, replicate(3, sample(1:9, m, TRUE), FALSE))
 gene_names <- paste0(preffix, suffix)
 exp_matrix <- matrix(
-    round(stats::rnorm(m * 4)+rpois(m*4, 4), 2),
+    round(stats::rnorm(m * 4)+stats::rpois(m*4, 3), 2),
     nrow = m,
     ncol = 4,
     dimnames = list(gene_names, c("P1", "P2", "P3", "P4"))