more debugging info

wibeasley · wibeasley · commit 0cf513d9046e · 2022-07-21T20:06:08.000-05:00
ref #400
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,

Original file line number	Diff line number	Diff line change
`@@ -325,6 +325,11 @@ redcap_read <- function(`
`325`	`325`	`min(selected_ids), " through ", max(selected_ids),`
`326`	`326`	`" (ie, ", length(selected_ids), " unique subject records)."`
`327`	`327`	`)`
	`328`	`+ message(`
	`329`	`+ "\nReading batch ", i, " of ", nrow(ds_glossary), ", with subjects ",`
	`330`	`+ paste(selected_ids, collapse = ';'),`
	`331`	`+ "\n(ie, ", length(selected_ids), " unique subject records)."`
	`332`	`+ )`
`328`	`333`	`}`
`329`	`334`	`read_result <- REDCapR::redcap_read_oneshot(`
`330`	`335`	`redcap_uri = redcap_uri,`