still working to get plink vignette knitting

pbreheny · Sep 23, 2024 · 51b3ef9 · 51b3ef9
1 parent d2f1a9c
commit 51b3ef9
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/R/read_plink_files.R b/R/read_plink_files.R
@@ -54,9 +54,8 @@ read_plink_files <- function(data_dir, data_prefix, rds_dir, outfile, overwrite,
   if (!quiet) cat("\nCreating ", data_prefix, ".rds\n", sep='')
 
   bigsnpr::snp_readBed2(bedfile = paste0(file.path(data_dir, data_prefix), ".bed"),
-                        backingfile = file.path(rds_dir, data_prefix))
-  # TODO: think about how, if at all, multiple cores should be used in the call
-  #   to bigsnpr::snp_readBed2
+                        backingfile = file.path(rds_dir, data_prefix),
+                        ncores = count_cores())
 
   obj <- bigsnpr::snp_attach(paste0(file.path(rds_dir, data_prefix), ".rds"))
   return(obj)