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)
minor changes 2024-02-27 12:43:54 +01:00			`mtcars_redcap <- mtcars \|> dplyr::mutate(record_id=seq_len(dplyr::n()),`
slightly modified mtcars for upload testing 2024-02-26 15:07:17 +01:00			`name=rownames(mtcars)`
			`) \|>`
minor changes 2024-02-27 12:43:54 +01:00			`dplyr::select(record_id,dplyr::everything())`

			`mtcars_redcap \|>`
slightly modified mtcars for upload testing 2024-02-26 15:07:17 +01:00			`write.csv(here::here("data/mtcars_redcap.csv"),row.names = FALSE)`
minor changes 2024-02-27 12:43:54 +01:00
			`usethis::use_data(mtcars_redcap, overwrite = TRUE)`