Try specifying wd in test-map_snps_to_genes

neurogenomics · Aug 11, 2022 · 8cb235f · 8cb235f
1 parent defaa33
commit 8cb235f
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/tests/testthat/test-map_snps_to_genes.r b/tests/testthat/test-map_snps_to_genes.r
@@ -6,8 +6,10 @@ test_that("map_snps_to_genes works", {
         ctd <- ewceData::ctd()
         #### Run SNP-to-gene mapping ####
         ## Use a very small example GWAS file 
+        wd <- getwd()
         path_formatted <- MAGMA.Celltyping::get_example_gwas(
-            trait = "educational_attainment")
+            trait = "educational_attainment",
+            storage_dir = wd)
         ## Map
         genesOutPath <- MAGMA.Celltyping::map_snps_to_genes(
             path_formatted = path_formatted,