From f335bf4f1f906f3a5f7f6e8151f8fe6a55ce73c5 Mon Sep 17 00:00:00 2001 From: Richard Hanna Date: Fri, 1 Nov 2024 10:45:19 -0400 Subject: [PATCH] Undo reorder for review simplicity --- R/utils.R | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/R/utils.R b/R/utils.R index bd74e936..b2edfe22 100644 --- a/R/utils.R +++ b/R/utils.R @@ -138,23 +138,23 @@ link_arms <- function(redcap_uri, # match field name of redcap_event_instruments() output rename(arm_num = "arm_number") - db_event_labels <- try_redcapr( + db_event_instruments <- try_redcapr( { - redcap_event_read( + redcap_event_instruments( redcap_uri = redcap_uri, token = token, + arms = NULL, # get all arms verbose = !suppress_redcapr_messages ) }, call = caller_env() ) - db_event_instruments <- try_redcapr( + db_event_labels <- try_redcapr( { - redcap_event_instruments( + redcap_event_read( redcap_uri = redcap_uri, token = token, - arms = NULL, # get all arms verbose = !suppress_redcapr_messages ) },