andreas/REDCapCAST
1
0
Fork 0
mirror of https://github.com/agdamsbo/REDCapCAST.git synced 2026-06-19 05:07:30 +02:00
Code Issues Projects Releases Packages Wiki Activity

linting

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2024-02-27 13:20:21 +01:00
commit 9e33057c06
32 changed files with 456 additions and 340 deletions
Download patch file Download diff file Expand all files Collapse all files

12
data-raw/data-upload-examples.R
View file

@ -1,9 +1,11 @@
mtcars_redcap <- mtcars |> dplyr::mutate(record_id=seq_len(dplyr::n()),
name=rownames(mtcars)
) |>
dplyr::select(record_id,dplyr::everything())
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)
write.csv(here::here("data/mtcars_redcap.csv"), row.names = FALSE)
usethis::use_data(mtcars_redcap, overwrite = TRUE)

9
data-raw/metadata_names.R
View file

@ -3,12 +3,13 @@
# "field_label", "select_choices_or_calculations", "field_note",
# "text_validation_type_or_show_slider_number", "text_validation_min",
# "text_validation_max", "identifier", "branching_logic", "required_field",
# "custom_alignment", "question_number", "matrix_group_name", "matrix_ranking",
# "field_annotation"
# "custom_alignment", "question_number", "matrix_group_name",
# "matrix_ranking", "field_annotation"
# )
metadata_names <- REDCapR::redcap_metadata_read(redcap_uri = keyring::key_get("DB_URI"),
token = keyring::key_get("cast_api")
metadata_names <- REDCapR::redcap_metadata_read(
redcap_uri = keyring::key_get("DB_URI"),
token = keyring::key_get("cast_api")
)$data |> names()
usethis::use_data(metadata_names, overwrite = TRUE, internal = TRUE)

9
data-raw/redcapcast_data.R
View file

@ -1,9 +1,10 @@
## 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 <- 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"),

7
data-raw/redcapcast_meta.R
View file

@ -1,6 +1,7 @@
## code to prepare `redcapcast_meta` dataset goes here
redcapcast_meta <- REDCapR::redcap_metadata_read(redcap_uri = keyring::key_get("DB_URI"),
token = keyring::key_get("cast_api")
)$data
redcapcast_meta <- REDCapR::redcap_metadata_read(
redcap_uri = keyring::key_get("DB_URI"),
token = keyring::key_get("cast_api")
)$data
usethis::use_data(redcapcast_meta, overwrite = TRUE)