Extract attribute. Returns NA if none

Usage

get_attr(data, attr = NULL)

Arguments

data: vector
attr: attribute name

Value

character vector

Examples

attr(mtcars$mpg, "label") <- "testing"
sapply(mtcars, get_attr)
#> $mpg
#> $mpg$label
#> [1] "testing"
#> 
#> 
#> $cyl
#> NULL
#> 
#> $disp
#> NULL
#> 
#> $hp
#> NULL
#> 
#> $drat
#> NULL
#> 
#> $wt
#> NULL
#> 
#> $qsec
#> NULL
#> 
#> $vs
#> NULL
#> 
#> $am
#> NULL
#> 
#> $gear
#> NULL
#> 
#> $carb
#> NULL
#> 
lapply(mtcars, \(.x)get_attr(.x, NULL))
#> $mpg
#> $mpg$label
#> [1] "testing"
#> 
#> 
#> $cyl
#> NULL
#> 
#> $disp
#> NULL
#> 
#> $hp
#> NULL
#> 
#> $drat
#> NULL
#> 
#> $wt
#> NULL
#> 
#> $qsec
#> NULL
#> 
#> $vs
#> NULL
#> 
#> $am
#> NULL
#> 
#> $gear
#> NULL
#> 
#> $carb
#> NULL
#> 
mtcars |>
  numchar2fct(numeric.threshold = 6) |>
  ds2dd_detailed()
#> $data
#> # A tibble: 32 × 11
#>      mpg cyl    disp    hp  drat    wt  qsec vs    am    gear  carb 
#>    <dbl> <fct> <dbl> <dbl> <dbl> <dbl> <dbl> <fct> <fct> <fct> <fct>
#>  1  21   6      160    110  3.9   2.62  16.5 0     1     4     4    
#>  2  21   6      160    110  3.9   2.88  17.0 0     1     4     4    
#>  3  22.8 4      108     93  3.85  2.32  18.6 1     1     4     1    
#>  4  21.4 6      258    110  3.08  3.22  19.4 1     0     3     1    
#>  5  18.7 8      360    175  3.15  3.44  17.0 0     0     3     2    
#>  6  18.1 6      225    105  2.76  3.46  20.2 1     0     3     1    
#>  7  14.3 8      360    245  3.21  3.57  15.8 0     0     3     4    
#>  8  24.4 4      147.    62  3.69  3.19  20   1     0     4     2    
#>  9  22.8 4      141.    95  3.92  3.15  22.9 1     0     4     2    
#> 10  19.2 6      168.   123  3.92  3.44  18.3 1     0     4     4    
#> # ℹ 22 more rows
#> 
#> $meta
#> # A tibble: 11 × 18
#>    field_name form_name section_header field_type field_label
#>    <chr>      <chr>     <lgl>          <chr>      <chr>      
#>  1 mpg        data      NA             text       testing    
#>  2 cyl        data      NA             radio      cyl        
#>  3 disp       data      NA             text       disp       
#>  4 hp         data      NA             text       hp         
#>  5 drat       data      NA             text       drat       
#>  6 wt         data      NA             text       wt         
#>  7 qsec       data      NA             text       qsec       
#>  8 vs         data      NA             radio      vs         
#>  9 am         data      NA             radio      am         
#> 10 gear       data      NA             radio      gear       
#> 11 carb       data      NA             radio      carb       
#> # ℹ 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>
#>