Apply suggestions from code review

hubverse-org · Dec 12, 2024 · 9660c5f · 9660c5f
1 parent 089b5e8
commit 9660c5f
Showing 1 changed file with 2 additions and 8 deletions.
diff --git a/R/check_tbl_derived_task_id_vals.R b/R/check_tbl_derived_task_id_vals.R
@@ -40,16 +40,10 @@ check_tbl_derived_task_id_vals <- function(
   )[derived_task_ids]
 
   setdiff_vals <- purrr::map2(
-    tbl[derived_task_ids], derived_task_id_vals,
-    \(.x, .y) {
-      setdiff(.x, .y)
-    }
+    tbl[derived_task_ids], derived_task_id_vals, setdiff
   )
 
-  invalid_derived_task_ids <- purrr::map_lgl(
-    setdiff_vals,
-    \(.x) length(.x) > 0L
-  )
+  invalid_derived_task_ids <- lengths(setdiff_vals) > 0L
 
   check <- !any(invalid_derived_task_ids)