bugfix in extend_lookup

failed when a dataset had corrupted columns
DanChaltiel · Feb 15, 2024 · 08a1ba3 · 08a1ba3
1 parent f27c0f0
commit 08a1ba3
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/helpers.R b/R/helpers.R
@@ -489,6 +489,7 @@ extend_lookup = function(lookup, ...,
     length(unique(rtn[[1]][[1]]))
   }
   rtn = lookup %>% 
+    filter(map_lgl(dataset, ~!inherits(datasets[[.x]], "error"))) %>% 
     mutate(
       n_id = map_int(dataset, ~f(.x, key_columns$patient_id)),
       rows_per_id = round(nrow/n_id, 1),