Retrieve column labels are embedded as an attribute of each column.
Examples
iris = set_labels(iris, c(
    "Sepal Length", "Sepal Width",
    "Petal Length", "Petal Width",  "Species"
 ))
fn = label_extractor(iris,tolower)
fn(colnames(iris))
#>   Sepal.Length    Sepal.Width   Petal.Length    Petal.Width        Species 
#> "sepal length"  "sepal width" "petal length"  "petal width"      "species" 
