<packageNotFoundError/error/condition>
Error in `loadNamespace(x)`: there is no package called 'ifadv'

# This test suite checks that the plots generated by this package make sense.
# It uses testthat::expect_snapshot_file. This is how it works:
# The first time expect_snapshot_file is run, it creates a reference image. An
# expert validates it manually, and it gets stored.
# Every other time expect_snapshot_file is run, it compares the output with the
# reference image. If the new and the reference image are identical, the test
# When fail, testthat provides some useful tools to visualy compare the differences
# between new and reference image. They are clickable from the test menu.
#' This decorator extends the functionality of any plotting function with:
#' This is required by testthat::expect_snapshot_file to work with graphics.
#' @param plot_function The plotting function to be tested
with_save <- function(plot_function, path, width=800, height=350) {
png(path, width, height) # Create a file placeholder for the plot,
p <- plot_function(...) # generate the plot...
dev.off() # ... export it as png and close connection

# Create a file placeholder for the plot,
# ... export it as png and close connection

test_that("summary reports are accurate", {