minor linting

Author: topepo

R/aaa_models.R

@@ -127,8 +127,9 @@ check_model_doesnt_exist <- function(model) {
 }
 
 check_mode_val <- function(mode) {
-  if (rlang::is_missing(mode) || length(mode) != 1 || !is.character(mode))
+  if (rlang::is_missing(mode) || length(mode) != 1 || !is.character(mode)) {
     rlang::abort("Please supply a character string for a mode (e.g. `'regression'`).")
+  }
   invisible(NULL)
 }
 
@@ -141,8 +142,11 @@ check_spec_mode_val <- function(cls, mode) {
       glue::glue_collapse(glue::glue("'{spec_modes}'"), sep = ", ")
     )
 
-  if (is.null(mode)) rlang::abort(compatible_modes)
-  else if (!(mode %in% spec_modes)) rlang::abort(compatible_modes)
+  if (is.null(mode)) {
+    rlang::abort(compatible_modes)
+  } else if (!(mode %in% spec_modes)) {
+    rlang::abort(compatible_modes)
+  }
 
   invisible(NULL)
 }

R/arguments.R

@@ -76,7 +76,9 @@ set_args <- function(object, ...) {
 #' @rdname set_args
 #' @export
 set_mode <- function(object, mode) {
-  if (rlang::is_missing(mode)) mode <- NULL
+  if (rlang::is_missing(mode)) {
+    mode <- NULL
+  }
   mode <- mode[1]
   check_spec_mode_val(class(object)[1], mode)
   object$mode <- mode

R/engines.R

@@ -16,8 +16,9 @@ check_engine <- function(object) {
     object$engine <- avail_eng[1]
     rlang::warn(glue::glue("`engine` was NULL and updated to be `{object$engine}`"))
   } else {
-    if (!is.character(object$engine) | length(object$engine) != 1)
+    if (!is.character(object$engine) | length(object$engine) != 1) {
       rlang::abort("`engine` should be a single character value.")
+    }
   }
   if (!(object$engine %in% avail_eng)) {
     rlang::abort(
@@ -95,7 +96,9 @@ set_engine <- function(object, engine, ...) {
     rlang::abort("`object` should have class 'model_spec'.")
   }
 
-  if (rlang::is_missing(engine)) engine <- NULL
+  if (rlang::is_missing(engine)) {
+    engine <- NULL
+  }
   object$engine <- engine
   object <- check_engine(object)