May 2024

vda1r22 · May 14, 2024 · 8e896d8 · 8e896d8
1 parent b763a6c
commit 8e896d8
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git a/tests/testthat/Rplots.pdf b/tests/testthat/Rplots.pdf
diff --git a/tests/testthat/test-bbn.predict.R b/tests/testthat/test-bbn.predict.R
@@ -31,12 +31,15 @@ test_that("bbn.predict saves plot to PDF when figure is 1", {
   data("my_BBN")
   data("dogwhelk")
 
+  # Define the path to the test plot in the temporary directory
+  test_plot_path <- file.path(tempdir(), "BBN_Output_RenameMe.pdf")
+
   # Ensure any previous test file is removed
-  test_plot_path <- "BBN_Output_RenameMe.pdf"
-  if(file.exists(test_plot_path)) {
+  if (file.exists(test_plot_path)) {
     file.remove(test_plot_path)
   }
 
+  # Call the function with the correct parameters
   bbn.predict(bbn.model = my_BBN, priors1 = dogwhelk, figure = 1)
 
   # Check if the file now exists
@@ -46,6 +49,7 @@ test_that("bbn.predict saves plot to PDF when figure is 1", {
   file.remove(test_plot_path)
 })
 
+
 test_that("bbn.predict runs without error for figure = 2", {
   data("my_BBN")
   data("dogwhelk")