if (FALSE) {
uri <- "https://redcap-dev-2.ouhsc.edu/redcap/api/"
token <- "9A068C425B1341D69E83064A2D273A70"
ds_last_week <- REDCapR::redcap_log_read(redcap_uri=uri, token=token)$data
head(ds_last_week)
ds_one_day <-
REDCapR::redcap_log_read(
redcap_uri = uri,
token = token,
log_begin_date = as.Date("2024-10-11"),
log_end_date = as.Date("2024-10-11")
)$data
head(ds_one_day)
ds_one_day_single_record <-
REDCapR::redcap_log_read(
redcap_uri = uri,
token = token,
log_begin_date = as.Date("2024-10-10"),
log_end_date = as.Date("2024-10-10"),
record = as.character(3),
# user = "unittestphifree"
)$data
head(ds_one_day_single_record)
}
Run the code above in your browser using DataLab