more debugging info

ref #400
OuhscBbmc · Jul 22, 2022 · 0cf513d · 0cf513d
1 parent 374cd0f
commit 0cf513d
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/R/redcap-read.R b/R/redcap-read.R
@@ -325,6 +325,11 @@ redcap_read <- function(
         min(selected_ids), " through ", max(selected_ids),
         " (ie, ", length(selected_ids), " unique subject records)."
       )
+      message(
+        "\nReading batch ", i, " of ", nrow(ds_glossary), ", with subjects ",
+        paste(selected_ids, collapse = ';'),
+        "\n(ie, ", length(selected_ids), " unique subject records)."
+      )
     }
     read_result <- REDCapR::redcap_read_oneshot(
       redcap_uri                  = redcap_uri,