REDCapCAST/data-raw/redcapcast_data.R

## code to prepare `redcapcast_data` dataset goes here

redcapcast_data <- REDCapR::redcap_read(
  redcap_uri = keyring::key_get("DB_URI"),
  token = keyring::key_get("cast_api"),
  raw_or_label = "label"
)$data |> dplyr::tibble()

# redcapcast_data <- easy_redcap(project.name = "redcapcast_pacakge",
#                                uri = keyring::key_get("DB_URI"),
#                                widen.data = FALSE)

usethis::use_data(redcapcast_data, overwrite = TRUE)

write.csv(redcapcast_data,here::here("data/redcapcast_data.csv"),row.names = FALSE)