remove isTRUE

hubverse-org · Nov 15, 2024 · 810690b · 810690b
1 parent 90b8712
commit 810690b
Showing 1 changed file with 3 additions and 5 deletions.
diff --git a/R/expand_model_out_grid.R b/R/expand_model_out_grid.R
@@ -618,11 +618,9 @@ extract_mt_output_type_ids <- function(x, config_tid, force_output_types = FALSE
 }
 
 pre_v4_std <- function(output_type_ids) {
-  isTRUE(
-    setequal(
-      names(output_type_ids),
-      c("required", "optional")
-    )
+  setequal(
+    names(output_type_ids),
+    c("required", "optional")
   )
 }