From 9660c5f7b3a0add130c85e7d5c8502c80ff72c80 Mon Sep 17 00:00:00 2001 From: "Zhian N. Kamvar" Date: Thu, 12 Dec 2024 07:42:20 -0800 Subject: [PATCH] Apply suggestions from code review --- R/check_tbl_derived_task_id_vals.R | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) diff --git a/R/check_tbl_derived_task_id_vals.R b/R/check_tbl_derived_task_id_vals.R index f49f7ed1..8efd824a 100644 --- 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)