tests/testthat/helper-attacher-detacher.R

In coursekata: Packages and Functions for 'CourseKata' Courses

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

attacher <- function(pkgs) {
  lapply(pkgs, function(pkg) {
    suppressPackageStartupMessages(suppressWarnings(require(
      pkg,
      character.only = TRUE, quietly = TRUE
    )))
  })
}