Fix OR for single length comparison

Author: juliasilge

R/aaa_models.R

@@ -144,7 +144,7 @@ glue_compatible_modes <- function(cls, spec_modes) {
 # check if class and mode are compatible
 check_spec_mode_val <- function(cls, mode) {
   spec_modes <- rlang::env_get(get_model_env(), paste0(cls, "_modes"))
-  if (is.null(mode) | length(mode) > 1) {
+  if (is.null(mode) || length(mode) > 1) {
     rlang::abort(glue_compatible_modes(cls, spec_modes))
   } else if (!(mode %in% spec_modes)) {
     rlang::abort(glue_compatible_modes(cls, spec_modes))

R/engines.R

@@ -20,7 +20,7 @@ glue_compatible_engines <- function(engine, avail_eng) {
 check_engine <- function(object) {
   avail_eng <- possible_engines(object)
   eng <- object$engine
-  if (is.null(eng) | length(eng) > 1) {
+  if (is.null(eng) || length(eng) > 1) {
     rlang::abort(glue_compatible_engines(eng, avail_eng))
   } else if (!(eng %in% avail_eng)) {
     rlang::abort(glue_compatible_engines(eng, avail_eng))