no /

mi-erasmusmc · Aug 15, 2023 · 46e1f37 · 46e1f37
1 parent 138f18b
commit 46e1f37
Showing 1 changed file with 1 addition and 5 deletions.
diff --git a/tests/testthat/test-MainFunctions.R b/tests/testthat/test-MainFunctions.R
@@ -5,7 +5,6 @@ test_that("option 1: fully pre-specified settings file works", {
   data_path <- system.file("examples", "iris.arff", package = "Explore")
   settings_path <- system.file("examples", "iris.project", package = "Explore")
   output_path <- system.file("examples", "output", package = "Explore")
-  output_path <- paste0(output_path, "/")
   data <- farff::readARFF(data_path)
   # Required dependencies
   withr::local_package("farff")
@@ -25,7 +24,6 @@ test_that("option 2: pre-specified settings file with input data works", {
   data_path <- system.file("examples", "iris.arff", package = "Explore")
   settings_path <- system.file("examples", "iris.project", package = "Explore")
   output_path <- system.file("examples", "output", package = "Explore")
-  output_path <- paste0(output_path, "/")
   data <- farff::readARFF(data_path)
   # Required dependencies
   withr::local_package("farff")
@@ -44,7 +42,6 @@ test_that("option 3: only input parameters (no settings file) works", {
   data_path <- system.file("examples", "iris.arff", package = "Explore")
   settings_path <- system.file("examples", "iris.project", package = "Explore")
   output_path <- system.file("examples", "output", package = "Explore")
-  output_path <- paste0(output_path, "/")
   data <- farff::readARFF(data_path)
   # Required dependencies
   withr::local_package("farff")
@@ -63,7 +60,6 @@ test_that("prediction", {
   data_path <- system.file("examples", "iris.arff", package = "Explore")
   settings_path <- system.file("examples", "iris.project", package = "Explore")
   output_path <- system.file("examples", "output", package = "Explore")
-  output_path <- paste0(output_path, "/")
   data <- farff::readARFF(data_path)
   # Required dependencies
   withr::local_package("farff")
@@ -84,7 +80,7 @@ test_that("compute AUC", {
   settings_path <- system.file("examples", "iris.project", package = "Explore")
   output_path <- system.file("examples", "output", package = "Explore")
   # output_path <- system.file("examples", "output//", package = "Explore")
-  output_path <- paste0(output_path, "/")
+  # output_path <- paste0(output_path, "//")
   data <- farff::readARFF(data_path)
 
   # Required dependencies