tests/testthat/helper-test_utilities.R

In UCLATALL/coursekata-r: Packages and Functions for CourseKata Courses

detacher <- function(pkg) {
  try(detach(paste0("package:", pkg), unload = TRUE, character.only = TRUE), silent = TRUE)
}

attacher <- function(pkg) {
  suppressMessages(library(pkg, character.only = TRUE))
}

load_before <- function(x) {
  .GlobalEnv$.load_dev()
  x
}

expect_doppelganger <- function(plot, name) {
  vdiffr::expect_doppelganger(name, plot)
}