tests/testthat.R

shhh <- function(expr){
  capture.output(x <- suppressPackageStartupMessages(
    suppressMessages(suppressWarnings(expr))))
  invisible(x)
}


shhh(library(testthat))
shhh(library(DemoTools))
shhh(library(magrittr))
shhh(library(dplyr))
test_check("DemoTools")
timriffe/DemoTools documentation built on Oct. 14, 2024, 12:53 p.m.