R/is_valid_countrycode.R

Defines functions is_valid_regioncode

is_valid_regioncode <- function(code) {
  if (is_country(code)) {
    return(TRUE)
  }

  if (code %in% c("EUR", "AFR", "S_A", "TOT")) {
    return(TRUE)
  }

  return(FALSE)
}

Try the cmsafvis package in your browser

Any scripts or data that you put into this service are public.

cmsafvis documentation built on Sept. 15, 2023, 5:15 p.m.