Use rlang's check_installed() (#1887)

Author: hadley

R/reporter-junit.R

@@ -56,7 +56,7 @@ JunitReporter <- R6::R6Class("JunitReporter",
     },
 
     start_reporter = function() {
-      check_installed("xml2", "JunitReporter")
+      check_installed("xml2", "to use JunitReporter")
 
       self$timer <- private$proctime()
       self$doc <- xml2::xml_new_document()

R/snapshot-manage.R

@@ -29,8 +29,7 @@ snapshot_accept <- function(files = NULL, path = "tests/testthat") {
 #' @rdname snapshot_accept
 #' @export
 snapshot_review <- function(files = NULL, path = "tests/testthat") {
-  check_installed("shiny", "snapshot_review()")
-  check_installed("diffviewer", "snapshot_review()")
+  check_installed(c("shiny", "diffviewer"), "to use snapshot_review()")
 
   changed <- snapshot_meta(files, path)
   if (nrow(changed) == 0) {

R/test-compiled-code.R

@@ -32,7 +32,7 @@ expect_cpp_tests_pass <- function(package) {
 #' @export
 run_cpp_tests <- function(package) {
   skip_on_os("solaris")
-  check_installed("xml2", "run_cpp_tests()")
+  check_installed("xml2", "to run run_cpp_tests()")
 
   run_testthat_tests <- get_routine(package, "run_testthat_tests")
 

R/utils.R

@@ -81,17 +81,6 @@ rstudio_tickle <- function() {
   rstudioapi::executeCommand("refreshFiles")
 }
 
-check_installed <- function(pkg, fun) {
-  if (is_installed(pkg)) {
-    return()
-  }
-
-  abort(c(
-    paste0("The ", pkg, " package must be installed in order to use `", fun, "`"),
-    i = paste0("Do you need to run `install.packages('", pkg, "')`?")
-  ))
-}
-
 first_upper <- function(x) {
   substr(x, 1, 1) <- toupper(substr(x, 1, 1))
   x