minor revs

This commit is contained in:
Andreas Gammelgaard Damsbo 2024-02-09 09:29:34 +01:00
commit 796826d7d9
5 changed files with 14 additions and 45 deletions

View file

@ -1,10 +1,14 @@
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",
"custom_alignment", "question_number", "matrix_group_name", "matrix_ranking",
"field_annotation"
)
# 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",
# "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")
)$data |> names()
usethis::use_data(metadata_names, overwrite = TRUE, internal = TRUE)