if (FALSE) {
uri <- "https://bbmc.ouhsc.edu/redcap/api/"
token <- "9A81268476645C4E5F03428B8AC3AA7B"
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("2020-08-10"),
log_end_date = as.Date("2020-08-10")
)$data
head(ds_one_day)
ds_one_day_single_record_single_user <-
REDCapR::redcap_log_read(
redcap_uri = uri,
token = token,
log_begin_date = as.Date("2021-07-11"),
log_end_date = as.Date("2021-07-11"),
record = as.character(3),
user = "unittestphifree"
)$data
head(ds_one_day_single_record_single_user)
}
Run the code above in your browser using DataLab