A selector function to use in tidyverse functions

Usage

has_label(labels)

Arguments

labels: A character vector of labels you want to operate on

Value

A numeric vector containing the position of the columns with the requested labels

Note

Using this in a pipeline results in a 'datatagr' object, but does not maintain the variable labels at this time. It is primarily useful to make your pipelines human readable.

Examples

## create datatagr
x <- make_datatagr(cars,
  speed = "Miles per hour",
  dist = "Distance in miles"
)
head(x)
#> 
#> // datatagr object
#>   speed dist
#> 1     4    2
#> 2     4   10
#> 3     7    4
#> 4     7   22
#> 5     8   16
#> 6     9   10
#> 
#> labelled variables:
#>  speed - Miles per hour
#>  dist - Distance in miles 

if (require(dplyr) && require(magrittr)) {
  x %>%
    select(has_label(c("Miles per hour", "Distance in miles"))) %>%
    head()
}
#> 
#> // datatagr object
#>   speed dist
#> 1     4    2
#> 2     4   10
#> 3     7    4
#> 4     7   22
#> 5     8   16
#> 6     9   10
#> 
#> labelled variables:
#>  speed - Miles per hour
#>  dist - Distance in miles