inst/translation/airlines_en.R

In SciViews/data.io: Read and Write Data in Different Formats

.airlines_en <- function(airlines, labels_only = FALSE, as_labelled = FALSE) {
  # airlines comes from nycflights13

  comment(airlines) <- c(
    "The 'airlines' from 'nycflights13' with labels.")

  airlines <- labelise(airlines, self = FALSE,
    label = list(
      carrier = "Carrier id",
      name = "Carrier name"),
    units = list(
      carrier = NA,
      name = NA),
    as_labelled = as_labelled)

  #if (!isTRUE(labels_only)) {
  # Nothing to do!
  #}

  airlines
}