Save NCBI refs to cache dir. Adjust .Rbuildignore for Windows

.Rbuildignore

@@ -14,3 +14,7 @@ Dockerfile
 ^LICENSE\.md$
 inst/hex/
 MAGMA.Celltyping/inst/hex
+
+^node_modules$
+package-lock.json
+package.json

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: MAGMA.Celltyping
 Type: Package
 Title: Find Causal Cell-Types Underlying Complex Trait Genetics
-Version: 2.0.1
+Version: 2.0.2
 Authors@R:
     c(person(given = "Brian",
            family = "Schilder",
@@ -53,7 +53,8 @@ Imports:
     parallel,
     Matrix,
     methods,
-    reshape2
+    reshape2,
+    tools
 Suggests: 
     markdown,
     rmarkdown,

NAMESPACE

@@ -83,6 +83,7 @@ importFrom(stats,quantile)
 importFrom(stats,residuals)
 importFrom(stats,setNames)
 importFrom(stringr,str_split)
+importFrom(tools,R_user_dir)
 importFrom(utils,download.file)
 importFrom(utils,read.table)
 importFrom(utils,unzip)

NEWS.md

@@ -1,3 +1,13 @@
+# MAGMA.Celltyping 2.0.2
+
+## New features
+
+* `get_genomeLocFile`: Store NCBI ref file in cache dir by default.  
+
+## Bug fixes  
+
+* Add windows-specific files/folders to *.Rbuildignore*.  
+
 # MAGMA.Celltyping 2.0.1  
 
 ## New features

R/get_genomeLocFile.R

@@ -40,8 +40,12 @@
 #' @return File path.
 #' 
 #' @keywords internal
+#' @importFrom tools R_user_dir
+#' @importFrom data.table fread
 get_genomeLocFile <- function(build,
-                              storage_dir = tempdir(),
+                              storage_dir = tools::R_user_dir(
+                                  "MAGMA.Celltyping",
+                                  which="cache"),
                               overwrite = FALSE) {
     build <- toupper(build[1])
     dict <- c(GRCH36 = "NCBI36.3.gene.loc",
@@ -58,7 +62,7 @@ get_genomeLocFile <- function(build,
         overwrite = overwrite
     ) 
     #### Check that download was successful ####
-    d <- data.table::fread(tmp, nrows = 10)
+    d <- data.table::fread(tmp, nrows = 10, nThread = 1)
     if(nrow(d)!=10 || ncol(d)!=6){
         stopper("genomeLocFile did not download properly.",
                 "Please check that you have a stable internet connection,