Generate a lookup table
Examples
x = edc_example()
#> Warning: Option "edc_lookup" has been overwritten.
x$.lookup=NULL
lk = build_lookup(x)
lk
#> # A tibble: 4 × 5
#> dataset nrow ncol names labels
#> <chr> <dbl> <dbl> <named list> <named list>
#> 1 db0 50 5 <chr [5]> <chr [5]>
#> 2 db2 50 5 <chr [5]> <chr [5]>
#> 3 db3 50 6 <chr [6]> <chr [6]>
#> 4 db1 100 6 <chr [6]> <chr [6]>
lk %>% tidyr::unnest(c(names, labels))
#> # A tibble: 22 × 5
#> dataset nrow ncol names labels
#> <chr> <dbl> <dbl> <chr> <chr>
#> 1 db0 50 5 SUBJID Subject ID
#> 2 db0 50 5 age Age (years)
#> 3 db0 50 5 date_naissance Date of birth
#> 4 db0 50 5 group Treatment
#> 5 db0 50 5 crfname Form name
#> 6 db2 50 5 SUBJID Subject ID
#> 7 db2 50 5 date4 Date at visit 4
#> 8 db2 50 5 date5 Date at visit 5
#> 9 db2 50 5 date6 Date at visit 6
#> 10 db2 50 5 crfname Form name
#> # ℹ 12 more rows