Gives column names and labels
Examples
id <- 1:4
age <- c(83, 29, 64, 40)
bwt <- c(71, 66, 70, 81)
attr(id, "label") <- "Subject ID"
attr(age, "label") <- "Age (years)"
attr(bwt, "label") <- "Weight (kg)"
df <- tibble::tibble(ID = id, AGE = age, BWT = bwt)
show_labels(df)
#> # A tibble: 3 × 2
#> name label
#> <chr> <chr>
#> 1 ID Subject ID
#> 2 AGE Age (years)
#> 3 BWT Weight (kg)
show_labels(df, "AGE", BWT)
#> # A tibble: 2 × 2
#> name label
#> <chr> <chr>
#> 1 AGE Age (years)
#> 2 BWT Weight (kg)
show_labels(df, 2)
#> # A tibble: 1 × 2
#> name label
#> <chr> <chr>
#> 1 AGE Age (years)
show_labels(df, c("BWT", "ID"))
#> # A tibble: 2 × 2
#> name label
#> <chr> <chr>
#> 1 BWT Weight (kg)
#> 2 ID Subject ID
show_labels(df, tidyselect::starts_with("A"))
#> # A tibble: 1 × 2
#> name label
#> <chr> <chr>
#> 1 AGE Age (years)