mtcars |> dplyr::mutate(record_id=seq_len(n()),
name=rownames(mtcars)
) |>
dplyr::select(record_id,dplyr::everything()) |>
write.csv(here::here("data/mtcars_redcap.csv"),row.names = FALSE)
