R/utils.R

In stefanieschneider/unstruwwel: Detect and Parse Historic Dates

is_valid_language <- function(x) {
  return(all(x %in% get("languages")$name))
}

get_invalid_language <- function(x) {
  return(x[!(x %in% get("languages")$name)][1])
}

get_months <- function() {
  x <- c(
    "january", "february", "march", "april", "may",
    "june", "july", "august", "september", "october",
    "november", "december"
  )

  return(x)
}

get_current_year <- function() {
  return(as.integer(format(Sys.Date(), "%Y")))
}

is_year <- function(x) {
  return(as.character(x) %in% as.character(100:2900))
}

is_year_addition <- function(x) {
  return(as.character(x) %in% as.character(1:99))
}

is_number <- function(x) {
  return(suppressWarnings(!is.na(as.numeric(x))))
}

get_item <- function(x, n = 1) {
  return(x[[1]][[n]])
}