inst/translation/urchin_growth_en.R

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

.urchin_growth_en <- function(urchin_growth, labels_only = FALSE,
as_labelled = FALSE) {
  urchin_growth <- labelise(urchin_growth, self = FALSE,
    label = list(
      date = "Date",
      age = "Age",
      diameter = "Test diameter"),
    units = list(
      date = NA,
      age = "years",
      diameter = "mm"),
    as_labelled = as_labelled)

  #if (!isTRUE(labels_only)) {
  #
  #}

  urchin_growth
}

# TODO: EN_US -> size in inches.