diff options
Diffstat (limited to 'tests/testthat/test_plots_twa.R')
| -rw-r--r-- | tests/testthat/test_plots_twa.R | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/tests/testthat/test_plots_twa.R b/tests/testthat/test_plots_twa.R index fe0ba325..0014f738 100644 --- a/tests/testthat/test_plots_twa.R +++ b/tests/testthat/test_plots_twa.R @@ -52,9 +52,11 @@ context("Plotting") test_that("Plotting mmkin objects is reproducible", { skip_on_cran() + plot_sep_FOCUS_C_SFO <- function() plot_sep(fits[[, "FOCUS_C"]]) mmkin_FOCUS_C <- function() plot(fits[, "FOCUS_C"]) mmkin_SFO <- function() plot(fits["SFO",]) + vdiffr::expect_doppelganger("mkinfit plot for FOCUS C with sep = TRUE", plot_sep_FOCUS_C_SFO) vdiffr::expect_doppelganger("mmkin plot for FOCUS C", mmkin_FOCUS_C) vdiffr::expect_doppelganger("mmkin plot for SFO (FOCUS C and D)", mmkin_SFO) }) |