try to speed up cue_format()

ropensci · Jan 3, 2025 · fa99d27 · fa99d27
1 parent fafbe43
commit fa99d27
Showing 1 changed file with 8 additions and 3 deletions.
diff --git a/R/class_cue.R b/R/class_cue.R
@@ -87,9 +87,14 @@ cue_format <- function(cue, target, meta, row) {
   }
   new <- .subset2(.subset2(target, "settings"), "format")
   old <- .subset2(row, "format")
-  up_to_date <- (new == old) ||
-    ((new == "auto") && (old %in% c("file", "qs")))
-  !up_to_date
+  if (new == old) {
+    return(FALSE)
+  }
+  if (new == "auto") {
+    return(!(old %in% c("file", "qs")))
+  } else {
+    return(TRUE)
+  }
 }
 
 cue_repository <- function(cue, target, meta, row) {