temp dir testthat ubuntu

mi-erasmusmc · Aug 16, 2023 · 5177fca · 5177fca
1 parent 47c4766
commit 5177fca
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/tests/testthat/test-MainFunctions.R b/tests/testthat/test-MainFunctions.R
@@ -4,7 +4,7 @@ test_that("option 1: fully pre-specified settings file works", {
   ### Tests for EXPLORE using iris dataset
   data_path <- system.file("examples", "iris.arff", package = "Explore")
   settings_path <- system.file("examples", "iris.project", package = "Explore")
-  output_path <- getwd()
+  output_path <- tempdir()
   # output_path <- system.file("examples", "output", package = "Explore")
   output_path <- paste0(output_path, "/")
   data <- farff::readARFF(data_path)
@@ -25,7 +25,7 @@ test_that("option 2: pre-specified settings file with input data works", {
   ### Tests for EXPLORE using iris dataset
   data_path <- system.file("examples", "iris.arff", package = "Explore")
   settings_path <- system.file("examples", "iris.project", package = "Explore")
-  output_path <- getwd()
+  output_path <- tempdir()
   output_path <- paste0(output_path, "/")
   data <- farff::readARFF(data_path)
   # Required dependencies
@@ -44,7 +44,7 @@ test_that("option 3: only input parameters (no settings file) works", {
   ### Tests for EXPLORE using iris dataset
   data_path <- system.file("examples", "iris.arff", package = "Explore")
   settings_path <- system.file("examples", "iris.project", package = "Explore")
-  output_path <- getwd()
+  output_path <- tempdir()
   output_path <- paste0(output_path, "/")
   data <- farff::readARFF(data_path)
   # Required dependencies
@@ -63,7 +63,7 @@ test_that("prediction", {
   ### Tests for EXPLORE using iris dataset
   data_path <- system.file("examples", "iris.arff", package = "Explore")
   settings_path <- system.file("examples", "iris.project", package = "Explore")
-  output_path <- getwd()
+  output_path <- tempdir()
   output_path <- paste0(output_path, "/")
   data <- farff::readARFF(data_path)
   # Required dependencies
@@ -83,7 +83,7 @@ test_that("compute AUC", {
   ### Tests for EXPLORE using iris dataset
   data_path <- system.file("examples", "iris.arff", package = "Explore")
   settings_path <- system.file("examples", "iris.project", package = "Explore")
-  output_path <- getwd()
+  output_path <- tempdir()
   # output_path <- system.file("examples", "output//", package = "Explore")
   output_path <- paste0(output_path, "/")
   data <- farff::readARFF(data_path)