Create temporaty directory in dir: test/testthat

Yunuuuu · Jan 27, 2024 · 3a6f3c7 · 3a6f3c7
1 parent c83e892
commit 3a6f3c7
Show file tree

Hide file tree

Showing 13 changed files with 16 additions and 11 deletions.
diff --git a/.github/workflows/R-CMD-check.yaml b/.github/workflows/R-CMD-check.yaml
@@ -22,7 +22,6 @@ jobs:
           - {os: windows-latest, r: 'release'}
           - {os: ubuntu-latest,   r: 'devel', http-user-agent: 'release'}
           - {os: ubuntu-latest,   r: 'release'}
-          - {os: ubuntu-latest,   r: 'oldrel-1'}
 
     env:
       GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }}

diff --git a/tests/testthat/setup.R b/tests/testthat/setup.R
@@ -0,0 +1,4 @@
+# Creating temporary directory
+tmpdir <- testthat::test_path("_TEMP")
+if (!dir.exists(tmpdir)) dir.create(tmpdir)
+tmpdir <- normalizePath(tmpdir, mustWork = TRUE)
diff --git a/tests/testthat/teardown.R b/tests/testthat/teardown.R
@@ -0,0 +1,2 @@
+# Removing temporary directory
+if (dir.exists(tmpdir)) unlink(tmpdir, recursive = TRUE)
diff --git a/tests/testthat/test_Convert.R b/tests/testthat/test_Convert.R
@@ -1,5 +1,5 @@
 mat <- mock_matrix(2000, 200)
-path <- normalizePath(tempfile(), mustWork = FALSE)
+path <- normalizePath(tempfile(tmpdir = tmpdir), mustWork = FALSE)
 obj <- BPCells::write_matrix_dir(mat = as(mat, "dgCMatrix"), dir = path)
 obj <- BPCells::convert_matrix_type(obj, "uint32_t")
 

diff --git a/tests/testthat/test_Dir.R b/tests/testthat/test_Dir.R
@@ -1,5 +1,5 @@
 mat <- mock_matrix(2000, 200)
-path <- normalizePath(tempfile(), mustWork = FALSE)
+path <- normalizePath(tempfile(tmpdir = tmpdir), mustWork = FALSE)
 obj <- BPCells::write_matrix_dir(mat = as(mat, "dgCMatrix"), dir = path)
 
 testthat::test_that("`BPCellsDirSeed()` works as expected", {

diff --git a/tests/testthat/test_HDF5.R b/tests/testthat/test_HDF5.R
@@ -1,5 +1,5 @@
 mat <- mock_matrix(2000, 200)
-path <- normalizePath(tempfile(), mustWork = FALSE)
+path <- normalizePath(tempfile(tmpdir = tmpdir), mustWork = FALSE)
 obj <- BPCells::write_matrix_hdf5(
     mat = as(mat, "dgCMatrix"),
     path = path, group = "BPCells"

diff --git a/tests/testthat/test_Mask.R b/tests/testthat/test_Mask.R
@@ -1,5 +1,5 @@
 mat <- mock_matrix(2000, 200)
-path <- normalizePath(tempfile(), mustWork = FALSE)
+path <- normalizePath(tempfile(tmpdir = tmpdir), mustWork = FALSE)
 obj <- BPCells::write_matrix_dir(mat = as(mat, "dgCMatrix"), dir = path)
 mask <- matrix(
     sample(c(0, 1),

diff --git a/tests/testthat/test_Multiply.R b/tests/testthat/test_Multiply.R
@@ -1,6 +1,6 @@
 mat <- mock_matrix(2000, 200)
 mat2 <- mock_matrix(ncol(mat), 5000)
-path <- normalizePath(c(tempfile(), tempfile()), mustWork = FALSE)
+path <- normalizePath(c(tempfile(tmpdir = tmpdir), tempfile(tmpdir = tmpdir)), mustWork = FALSE)
 obj <- BPCells::write_matrix_dir(mat = as(mat, "dgCMatrix"), dir = path[1L])
 obj2 <- BPCells::write_matrix_dir(mat = as(mat2, "dgCMatrix"), dir = path[2L])
 obj <- obj %*% obj2

diff --git a/tests/testthat/test_RankTransform.R b/tests/testthat/test_RankTransform.R
@@ -1,5 +1,5 @@
 mat <- mock_matrix(2000, 200)
-path <- normalizePath(tempfile(), mustWork = FALSE)
+path <- normalizePath(tempfile(tmpdir = tmpdir), mustWork = FALSE)
 obj <- BPCells::write_matrix_dir(mat = as(mat, "dgCMatrix"), dir = path)
 obj <- BPCells:::rank_transform(obj, "col")
 

diff --git a/tests/testthat/test_RenameDims.R b/tests/testthat/test_RenameDims.R
@@ -1,5 +1,5 @@
 mat <- mock_matrix(2000, 200)
-path <- normalizePath(tempfile(), mustWork = FALSE)
+path <- normalizePath(tempfile(tmpdir = tmpdir), mustWork = FALSE)
 obj <- BPCells::write_matrix_dir(mat = as(mat, "dgCMatrix"), dir = path)
 dimnames(obj) <- list(
     paste0("G", seq_len(2000L)),

diff --git a/tests/testthat/test_Subset.R b/tests/testthat/test_Subset.R
@@ -1,5 +1,5 @@
 mat <- mock_matrix(2000, 200)
-path <- normalizePath(tempfile(), mustWork = FALSE)
+path <- normalizePath(tempfile(tmpdir = tmpdir), mustWork = FALSE)
 obj <- BPCells::write_matrix_dir(mat = as(mat, "dgCMatrix"), dir = path)
 obj <- obj[1:1000L, 1:100]
 

diff --git a/tests/testthat/test_cBindMatrix.R b/tests/testthat/test_cBindMatrix.R
@@ -1,6 +1,6 @@
 mat1 <- mock_matrix(2000, 200)
 mat2 <- mock_matrix(2000, 200)
-path <- normalizePath(c(tempfile(), tempfile()), mustWork = FALSE)
+path <- normalizePath(c(tempfile(tmpdir = tmpdir), tempfile(tmpdir = tmpdir)), mustWork = FALSE)
 obj1 <- BPCells::write_matrix_dir(mat = as(mat1, "dgCMatrix"), dir = path[1L])
 obj2 <- BPCells::write_matrix_dir(mat = as(mat2, "dgCMatrix"), dir = path[2L])
 obj <- cbind(obj1, obj2)

diff --git a/tests/testthat/test_rBindMatrix.R b/tests/testthat/test_rBindMatrix.R
@@ -1,6 +1,6 @@
 mat <- mock_matrix(2000, 200)
 mat2 <- mock_matrix(2000, 200)
-path <- normalizePath(c(tempfile(), tempfile()), mustWork = FALSE)
+path <- normalizePath(c(tempfile(tmpdir = tmpdir), tempfile(tmpdir = tmpdir)), mustWork = FALSE)
 mat <- BPCells::write_matrix_dir(mat = as(mat, "dgCMatrix"), dir = path[1L])
 mat2 <- BPCells::write_matrix_dir(mat = as(mat2, "dgCMatrix"), dir = path[2L])
 obj <- rbind(mat, mat2)
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1,2 @@
		# Removing temporary directory
		if (dir.exists(tmpdir)) unlink(tmpdir, recursive = TRUE)