1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
#' Was devtools installed with tests?
#'
#' @keywords internal
#' @export
has_tests <- function() {
system.file("tests", package = "pkgload") != ""
}
#' Return the path to one of the packages in the devtools test dir
#'
#' devtools comes with some simple packages for testing. This function
#' returns the path to them.
#'
#' @param package Name of the test package.
#' @keywords internal
#' @examples
#' if (has_tests()) {
#' pkgtest("testData")
#' }
#' @export
pkgtest <- function(package) {
stopifnot(has_tests())
path <- system.file(package = "pkgload", "tests", "testthat", package)
if (path == "") {
cli::cli_abort("Can't find {.pkg {package}}.")
}
path
}
|
