2024-02-09 09:29:34 +01:00
|
|
|
# metadata_names <- c(
|
|
|
|
|
# "field_name", "form_name", "section_header", "field_type",
|
|
|
|
|
# "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",
|
2024-02-27 13:20:21 +01:00
|
|
|
# "custom_alignment", "question_number", "matrix_group_name",
|
|
|
|
|
# "matrix_ranking", "field_annotation"
|
2024-02-09 09:29:34 +01:00
|
|
|
# )
|
|
|
|
|
|
2024-02-27 13:20:21 +01:00
|
|
|
metadata_names <- REDCapR::redcap_metadata_read(
|
|
|
|
|
redcap_uri = keyring::key_get("DB_URI"),
|
|
|
|
|
token = keyring::key_get("cast_api")
|
2024-02-09 09:29:34 +01:00
|
|
|
)$data |> names()
|
2019-06-24 19:48:18 +02:00
|
|
|
|
|
|
|
|
usethis::use_data(metadata_names, overwrite = TRUE, internal = TRUE)
|
