R/cl_locales.R

In codelist: Working with Code Lists

Defines functions removena cl_locales

cl_locales <- function(codelist) {
  if (utils::hasName(codelist, "locale")) {
    codelist$locale |> unique() |> removena()
  } else NA_character_
}


removena <- function(x) {
  x[!is.na(x)]
}

Try the codelist package in your browser