bugfix in get_key_cols

fixes #13
DanChaltiel · Dec 1, 2023 · a154329 · a154329
1 parent cb9c347
commit a154329
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/helpers.R b/R/helpers.R
@@ -282,8 +282,8 @@ get_key_cols = function(lookup=getOption("edc_lookup")){
   rtn = lookup %>% 
     select(dataset, names) %>% 
     mutate(
-      patient_id=map_chr(names, ~.x[tolower(.x) %in% tolower(patient_id)] %0% NA), 
-      crfname=map_chr(names, ~.x[tolower(.x) %in% tolower(crfname)] %0% NA)
+      patient_id=map_chr(names, ~.x[tolower(.x) %in% tolower(patient_id)][1] %0% NA), 
+      crfname=map_chr(names, ~.x[tolower(.x) %in% tolower(crfname)][1] %0% NA)
     )
 
   verbose = getOption("edc_get_key_cols_verbose", FALSE)