R/months.R

In datefixR: Standardize Dates in Different Formats or with Missing Data

###############################################################
#-        List of month names in different languages.        -#
#- Please feel free to contribute months in other languages! -#
###############################################################

months <- new.env()
months$months <- list()
months$months[[1]] <- c(
  "january",
  "janvier",
  "janeiro",
  "janv",
  "januar",
  "j\u00E4nner",
  "j\u00E4n",
  "enero",
  "jan",
  "\u044f\u043d\u0432\u0430\u0440\u044c", # "январь"
  "\u044f\u043d\u0432\u0430\u0440\u044f", # "января"
  "\u044f\u043d\u0432" # "янв"
)
months$months[[2]] <- c(
  "february",
  "f\u00E9vrier",
  "fevrier",
  "fevereiro",
  "f\u00E9vr",
  "fevr",
  "fev",
  "februar",
  "febrero",
  "feb",
  "\u0444\u0435\u0432\u0440\u0430\u043b\u044c", # "февраль"
  "\u0444\u0435\u0432\u0440\u0430\u043b\u044f", # "февраля"
  "\u0444\u0435\u0432" # "фев"
)
months$months[[3]] <- c(
  "march",
  "mars",
  "m\u00E4rz",
  "marzo",
  "mar\u00E7o",
  "marco",
  "marz",
  "mar",
  "\u043C\u0430\u0440\u0442", # "март"
  "\u043C\u0430\u0440" # "мар"
)
months$months[[4]] <- c(
  "april",
  "avril",
  "abril",
  "abr",
  "apr",
  "\u0430\u043f\u0440\u0435\u043b\u044c", # "апрель"
  "\u0430\u043f\u0440\u0435\u043b\u044f", # "апреля"
  "\u0430\u043f\u0440" # "апр"
)
months$months[[5]] <- c(
  "mayo",
  "may",
  "maio",
  "mai",
  "\u043c\u0430\u0439", # "май"
  "\u043c\u0430\u044f" # "мая"
)
months$months[[6]] <- c(
  "june",
  "juin",
  "junio",
  "junho",
  "juni",
  "jun",
  "\u0438\u044e\u043d\u044c", # "июнь"
  "\u0438\u044e\u043d\u044f", # "июня"
  "\u0438\u044e\u043d" # "июн"
)
months$months[[7]] <- c(
  "july",
  "juillet",
  "juil",
  "julio",
  "julho",
  "juli",
  "jul",
  "\u0438\u044e\u043b\u044c", # "июль"
  "\u0438\u044e\u043b\u044f", # "июля"
  "\u0438\u044e\u043b" # "июл"
)
months$months[[8]] <- c(
  "august",
  "aug",
  "ao\u00FBt",
  "aout",
  "agosto",
  "\u0430\u0432\u0433\u0443\u0441\u0442", # "август"
  "\u0430\u0432\u0433" # "авг"
)
months$months[[9]] <- c(
  "september",
  "septembre",
  "septiembre",
  "setembro",
  "set",
  "sept",
  "sep",
  "\u0441\u0435\u043d\u0442\u044f\u0431\u0440\u044c", # "сентябрь"
  "\u0441\u0435\u043d\u0442\u044f\u0431\u0440\u044f", # "сентября"
  "\u0441\u0435\u043d\u0442" # "сент"
)
months$months[[10]] <- c(
  "october",
  "octobre",
  "oktober",
  "okt",
  "octubre",
  "outubro",
  "oct",
  "out",
  "\u043e\u043a\u0442\u044f\u0431\u0440\u044c", # октябрь
  "\u043e\u043a\u0442\u044f\u0431\u0440\u044f", # октября
  "\u043e\u043a\u0442" # окт
)
months$months[[11]] <- c(
  "november",
  "novembre",
  "noviembre",
  "novembro",
  "nov",
  "\u043d\u043e\u044f\u0431\u0440\u044c", # ноябрь
  "\u043d\u043e\u044f\u0431\u0440\u044f", # ноября
  "\u043d\u043e\u044f" # ноя
)
months$months[[12]] <- c(
  "december",
  "d\u00E9cembre",
  "decembre",
  "d\u00E9c",
  "dezember",
  "dezembro",
  "dez",
  "diciembre",
  "dic",
  "dec",
  "\u0434\u0435\u043a\u0430\u0431\u0440\u044c", # "декабрь"
  "\u0434\u0435\u043a\u0430\u0431\u0440\u044f", # "декабря"
  "\u0434\u0435\u043a" # "дек"
)

months$roman <- c(
  "i",
  "ii",
  "iii",
  "iv",
  "v",
  "vi",
  "vii",
  "viii",
  "ix",
  "x",
  "xi",
  "xii"
)


months$days <- c(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)