handle the skip directly

r-lib · Oct 24, 2024 · cd3bb6d · cd3bb6d
1 parent a748736
commit cd3bb6d
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/R/skip.R b/R/skip.R
@@ -101,10 +101,10 @@ skip_if <- function(condition, message = NULL) {
 #' @rdname skip
 skip_if_not_installed <- function(pkg, minimum_version = NULL) {
   # most common case: it's not installed
-  res <- tryCatch(find.package(pkg), error = identity)
-  if (inherits(res, "error")) {
-    skip(paste0("{", pkg, "} is not installed"))
-  }
+  tryCatch(
+    find.package(pkg),
+    error = function(e) skip(paste0("{", pkg, "} is not installed"))
+  )
   # rarer: it's installed, but fails to load
   if (!requireNamespace(pkg, quietly = TRUE)) {
     skip(paste0("{", pkg, "} cannot be loaded"))