data <- redcapcast_data
+ data <- REDCapCAST::redcapcast_data
data |> ds2dd_detailed(validate.time = TRUE)
#> $is.POSIX
#> # A tibble: 19 × 2
@@ -264,17 +277,17 @@ Please, do always inspect the data dictionary before upload.
#> $meta
#> # A tibble: 24 × 18
#> field_name form_name section_header field_type field_label
-#> <chr> <chr> <lgl> <chr> <chr>
-#> 1 record_id data NA text record_id
-#> 2 redcap_event_name data NA text redcap_event_na…
-#> 3 redcap_repeat_instrument data NA text redcap_repeat_i…
-#> 4 redcap_repeat_instance data NA text redcap_repeat_i…
-#> 5 cpr data NA text cpr
-#> 6 inclusion data NA text inclusion
-#> 7 inclusion_time data NA text inclusion_time
-#> 8 dob data NA text dob
-#> 9 age data NA text age
-#> 10 age_integer data NA text age_integer
+#> <chr> <lgl> <lgl> <chr> <chr>
+#> 1 record_id NA NA text record_id
+#> 2 redcap_event_name NA NA text redcap_event_na…
+#> 3 redcap_repeat_instrument NA NA text redcap_repeat_i…
+#> 4 redcap_repeat_instance NA NA text redcap_repeat_i…
+#> 5 cpr NA NA text cpr
+#> 6 inclusion NA NA text inclusion
+#> 7 inclusion_time NA NA text inclusion_time
+#> 8 dob NA NA text dob
+#> 9 age NA NA text age
+#> 10 age_integer NA NA text age_integer
#> # ℹ 14 more rows
#> # ℹ 13 more variables: select_choices_or_calculations <lgl>, field_note <lgl>,
#> # text_validation_type_or_show_slider_number <chr>,
@@ -287,30 +300,30 @@ Please, do always inspect the data dictionary before upload.
#> A default id column has been added
#> $data
#> # A tibble: 150 × 6
-#> default_trial_id sepal.length sepal.width petal.length petal.width species
-#> <int> <dbl> <dbl> <dbl> <dbl> <fct>
-#> 1 1 5.1 3.5 1.4 0.2 setosa
-#> 2 2 4.9 3 1.4 0.2 setosa
-#> 3 3 4.7 3.2 1.3 0.2 setosa
-#> 4 4 4.6 3.1 1.5 0.2 setosa
-#> 5 5 5 3.6 1.4 0.2 setosa
-#> 6 6 5.4 3.9 1.7 0.4 setosa
-#> 7 7 4.6 3.4 1.4 0.3 setosa
-#> 8 8 5 3.4 1.5 0.2 setosa
-#> 9 9 4.4 2.9 1.4 0.2 setosa
-#> 10 10 4.9 3.1 1.5 0.1 setosa
+#> record_id sepal.length sepal.width petal.length petal.width species
+#> <int> <dbl> <dbl> <dbl> <dbl> <fct>
+#> 1 1 5.1 3.5 1.4 0.2 setosa
+#> 2 2 4.9 3 1.4 0.2 setosa
+#> 3 3 4.7 3.2 1.3 0.2 setosa
+#> 4 4 4.6 3.1 1.5 0.2 setosa
+#> 5 5 5 3.6 1.4 0.2 setosa
+#> 6 6 5.4 3.9 1.7 0.4 setosa
+#> 7 7 4.6 3.4 1.4 0.3 setosa
+#> 8 8 5 3.4 1.5 0.2 setosa
+#> 9 9 4.4 2.9 1.4 0.2 setosa
+#> 10 10 4.9 3.1 1.5 0.1 setosa
#> # ℹ 140 more rows
#>
#> $meta
#> # A tibble: 6 × 18
-#> field_name form_name section_header field_type field_label
-#> <chr> <chr> <lgl> <chr> <chr>
-#> 1 default_trial_id data NA text default_trial_id
-#> 2 sepal.length data NA text Sepal.Length
-#> 3 sepal.width data NA text Sepal.Width
-#> 4 petal.length data NA text Petal.Length
-#> 5 petal.width data NA text Petal.Width
-#> 6 species data NA radio Species
+#> field_name form_name section_header field_type field_label
+#> <chr> <lgl> <lgl> <chr> <chr>
+#> 1 record_id NA NA text record_id
+#> 2 sepal.length NA NA text sepal.length
+#> 3 sepal.width NA NA text sepal.width
+#> 4 petal.length NA NA text petal.length
+#> 5 petal.width NA NA text petal.width
+#> 6 species NA NA radio species
#> # ℹ 13 more variables: select_choices_or_calculations <chr>, field_note <lgl>,
#> # text_validation_type_or_show_slider_number <chr>,
#> # text_validation_min <lgl>, text_validation_max <lgl>, identifier <lgl>,
@@ -322,37 +335,36 @@ Please, do always inspect the data dictionary before upload.
#> A default id column has been added
#> $data
#> # A tibble: 32 × 12
-#> default_trial_id mpg cyl disp hp drat wt qsec vs am gear
-#> <int> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
-#> 1 1 21 6 160 110 3.9 2.62 16.5 0 1 4
-#> 2 2 21 6 160 110 3.9 2.88 17.0 0 1 4
-#> 3 3 22.8 4 108 93 3.85 2.32 18.6 1 1 4
-#> 4 4 21.4 6 258 110 3.08 3.22 19.4 1 0 3
-#> 5 5 18.7 8 360 175 3.15 3.44 17.0 0 0 3
-#> 6 6 18.1 6 225 105 2.76 3.46 20.2 1 0 3
-#> 7 7 14.3 8 360 245 3.21 3.57 15.8 0 0 3
-#> 8 8 24.4 4 147. 62 3.69 3.19 20 1 0 4
-#> 9 9 22.8 4 141. 95 3.92 3.15 22.9 1 0 4
-#> 10 10 19.2 6 168. 123 3.92 3.44 18.3 1 0 4
+#> record_id mpg cyl disp hp drat wt qsec vs am gear carb
+#> <int> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
+#> 1 1 21 6 160 110 3.9 2.62 16.5 0 1 4 4
+#> 2 2 21 6 160 110 3.9 2.88 17.0 0 1 4 4
+#> 3 3 22.8 4 108 93 3.85 2.32 18.6 1 1 4 1
+#> 4 4 21.4 6 258 110 3.08 3.22 19.4 1 0 3 1
+#> 5 5 18.7 8 360 175 3.15 3.44 17.0 0 0 3 2
+#> 6 6 18.1 6 225 105 2.76 3.46 20.2 1 0 3 1
+#> 7 7 14.3 8 360 245 3.21 3.57 15.8 0 0 3 4
+#> 8 8 24.4 4 147. 62 3.69 3.19 20 1 0 4 2
+#> 9 9 22.8 4 141. 95 3.92 3.15 22.9 1 0 4 2
+#> 10 10 19.2 6 168. 123 3.92 3.44 18.3 1 0 4 4
#> # ℹ 22 more rows
-#> # ℹ 1 more variable: carb <dbl>
#>
#> $meta
#> # A tibble: 12 × 18
-#> field_name form_name section_header field_type field_label
-#> <chr> <chr> <lgl> <chr> <chr>
-#> 1 default_trial_id data NA text default_trial_id
-#> 2 mpg data NA text mpg
-#> 3 cyl data NA text cyl
-#> 4 disp data NA text disp
-#> 5 hp data NA text hp
-#> 6 drat data NA text drat
-#> 7 wt data NA text wt
-#> 8 qsec data NA text qsec
-#> 9 vs data NA text vs
-#> 10 am data NA text am
-#> 11 gear data NA text gear
-#> 12 carb data NA text carb
+#> field_name form_name section_header field_type field_label
+#> <chr> <lgl> <lgl> <chr> <chr>
+#> 1 record_id NA NA text record_id
+#> 2 mpg NA NA text mpg
+#> 3 cyl NA NA text cyl
+#> 4 disp NA NA text disp
+#> 5 hp NA NA text hp
+#> 6 drat NA NA text drat
+#> 7 wt NA NA text wt
+#> 8 qsec NA NA text qsec
+#> 9 vs NA NA text vs
+#> 10 am NA NA text am
+#> 11 gear NA NA text gear
+#> 12 carb NA NA text carb
#> # ℹ 13 more variables: select_choices_or_calculations <lgl>, field_note <lgl>,
#> # text_validation_type_or_show_slider_number <chr>,
#> # text_validation_min <lgl>, text_validation_max <lgl>, identifier <lgl>,
@@ -360,6 +372,46 @@ Please, do always inspect the data dictionary before upload.
#> # question_number <lgl>, matrix_group_name <lgl>, matrix_ranking <lgl>,
#> # field_annotation <lgl>
#>
+data <- iris |>
+ ds2dd_detailed(add.auto.id = TRUE) |>
+ purrr::pluck("data")
+#> A default id column has been added
+names(data) <- glue::glue("{sample(x = c('a','b'),size = length(names(data)),
+replace=TRUE,prob = rep(x=.5,2))}__{names(data)}")
+data |> ds2dd_detailed(form.sep="__")
+#> $data
+#> # A tibble: 150 × 6
+#> record_id sepal.length sepal.width petal.length petal.width species
+#> <int> <dbl> <dbl> <dbl> <dbl> <fct>
+#> 1 1 5.1 3.5 1.4 0.2 setosa
+#> 2 2 4.9 3 1.4 0.2 setosa
+#> 3 3 4.7 3.2 1.3 0.2 setosa
+#> 4 4 4.6 3.1 1.5 0.2 setosa
+#> 5 5 5 3.6 1.4 0.2 setosa
+#> 6 6 5.4 3.9 1.7 0.4 setosa
+#> 7 7 4.6 3.4 1.4 0.3 setosa
+#> 8 8 5 3.4 1.5 0.2 setosa
+#> 9 9 4.4 2.9 1.4 0.2 setosa
+#> 10 10 4.9 3.1 1.5 0.1 setosa
+#> # ℹ 140 more rows
+#>
+#> $meta
+#> # A tibble: 6 × 18
+#> field_name form_name section_header field_type field_label
+#> <chr> <chr> <lgl> <chr> <chr>
+#> 1 record_id b NA text record_id
+#> 2 sepal.length b NA text sepal.length
+#> 3 sepal.width b NA text sepal.width
+#> 4 petal.length a NA text petal.length
+#> 5 petal.width a NA text petal.width
+#> 6 species a NA radio species
+#> # ℹ 13 more variables: select_choices_or_calculations <chr>, field_note <lgl>,
+#> # text_validation_type_or_show_slider_number <chr>,
+#> # text_validation_min <lgl>, text_validation_max <lgl>, identifier <lgl>,
+#> # branching_logic <lgl>, required_field <lgl>, custom_alignment <lgl>,
+#> # question_number <lgl>, matrix_group_name <lgl>, matrix_ranking <lgl>,
+#> # field_annotation <lgl>
+#>