for PR review before .svg files for test

Genentech · Jan 3, 2025 · c475a98 · c475a98
1 parent 01b8185
commit c475a98
Showing 1 changed file with 22 additions and 0 deletions.
diff --git a/tests/testthat/test-plotBetaDiff.R b/tests/testthat/test-plotBetaDiff.R
@@ -0,0 +1,22 @@
+# plotBetaDiff
+test_that("plotBetaDiff works as expected", {
+  result <- plotBetaDiff(
+    parY = c(1, 1),
+    parX = c(6, 10),
+    Go_cut = 0.3,
+    Stop_cut = 0.1, # below a difference of 10%, is an unsuccesful trial
+    shade = TRUE,
+    note = TRUE
+  )
+  result <- plotBetaDiff(
+    parY = c(2, 3),
+    parX = c(4, 10),
+    Go_cut = 0.3,
+    Stop_cut = 0.1, # below a difference of 10%, is an unsuccesful trial
+    shade = TRUE,
+    note = TRUE
+  )
+  vdiffr::expect_doppelganger("", result)
+  vdiffr::expect_doppelganger("", result)
+
+})