Merge pull request stemangiola#138 from myushen/master

fix parquet pattern
myushen · Apr 26, 2024 · 9be13af · 9be13af
2 parents fe980d6 + 05065f2
commit 9be13af
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/metadata.R b/R/metadata.R
@@ -159,7 +159,7 @@ get_metadata <- function(
                        progress(type = "down", con = stderr()))
     }
   })
-  all_parquet <- file.path(cache_directory, dir(cache_directory, pattern = ".parquet$"))
+  all_parquet <- file.path(cache_directory, dir(cache_directory, pattern = "\\.parquet$"))
   # We try to avoid re-reading a set of parquet files 
   # that is identical to a previous set by hashing the file list
   hash <- all_parquet |> paste0(collapse="") |>

diff --git a/tests/testthat/test-query.R b/tests/testthat/test-query.R
@@ -48,7 +48,7 @@ test_that("sync_assay_files() syncs appropriate files", {
 })
 
 test_that("get_SingleCellExperiment() syncs appropriate files", {
-    temp <- tempfile()
+    temp <- get_default_cache_dir()
     test_file <- "00095cb0de0dc9528316b636fc9b3446"
 
     meta <- get_metadata() |> head(2)