Linting

Author: topepo

R/engines.R

@@ -42,11 +42,13 @@ check_engine <- function(object) {
 #' @importFrom utils installed.packages
 check_installs <- function(x) {
   lib_inst <- rownames(installed.packages())
-  if(length(x$method$library) > 0) {
+  if (length(x$method$library) > 0) {
     is_inst <- x$method$library %in% lib_inst
-    if(any(!is_inst)) {
-      stop("This engine requires some package installs: ",
-           paste0("'", x$method$library[!is_inst], "'", collapse = ", "))
+    if (any(!is_inst)) {
+      stop(
+        "This engine requires some package installs: ",
+        paste0("'", x$method$library[!is_inst], "'", collapse = ", ")
+      )
     }
   }
 }