tests/testthat.R

pkg_name <- eval(parse(text = 'pkgload::pkg_name(dirname(list.files("..", pattern = "DESCRIPTION", recursive = TRUE, full.names = TRUE))[[1]])'))
library(testthat)
library(pkg_name, character.only = TRUE)
test_check(pkg_name)
rm(pkg_name)
tidylab/template.package documentation built on Feb. 27, 2020, 1:47 a.m.