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

10 lines
332 B
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)