(v1.6.0.9030) new unit test flow

2025-08-13 12:45:14 +02:00 · 2021-05-13 23:07:31 +02:00
parent c17acbe712
commit 9a381c8d18
16 changed files with 28 additions and 21 deletions
--- a/tests/testthat/test-resistance_predict.R
+++ b/tests/testthat/test-resistance_predict.R
@ -48,10 +48,12 @@ test_that("prediction of rsi works", {
                                                         info = TRUE)))
  pdf(NULL) # prevent Rplots.pdf being created
  expect_silent(plot(x))
-  expect_silent(ggplot_rsi_predict(x))
-  expect_silent(ggplot(x))
-  expect_error(ggplot_rsi_predict(example_isolates))
-
+  if (suppressWarnings(require("ggplot2"))) {
+    expect_silent(ggplot_rsi_predict(x))
+    expect_silent(ggplot(x))
+    expect_error(ggplot_rsi_predict(example_isolates))
+  }
+  
  expect_output(rsi_predict(x = subset(example_isolates, mo == "B_ESCHR_COLI"),
                            model = "binomial",
                            col_ab = "AMX",