REDCapCAST/data-raw/data-upload-examples.R

mtcars_redcap <- mtcars |>
  dplyr::mutate(
    record_id = seq_len(dplyr::n()),
    name = rownames(mtcars)
  ) |>
  dplyr::select(record_id, dplyr::everything())

mtcars_redcap |>
  write.csv(here::here("data/mtcars_redcap.csv"), row.names = FALSE)

usethis::use_data(mtcars_redcap, overwrite = TRUE)