include dummy event_id when necessary w/ eav read

ref #396
OuhscBbmc · Jul 19, 2022 · 9f96755 · 9f96755
1 parent 302614e
commit 9f96755
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/R/redcap-read-oneshot-eav.R b/R/redcap-read-oneshot-eav.R
@@ -250,6 +250,10 @@ redcap_read_oneshot_eav <- function(
             show_col_types  = FALSE
           )
 
+        if (!"event_id" %in% colnames(ds_eav)) {
+          ds_eav$event_id <- "dummy_1"
+        }
+
         ds_metadata_expanded <-
           ds_metadata %>%
           dplyr::select(.data$field_name, .data$select_choices_or_calculations, .data$field_type) %>%