R/person-provider-de_AT.R

In ropensci/charlatan: Make Fake Data

# modified from the python library faker:
# https://github.com/joke2k/faker/blob/master/faker/providers/person/de_AT/__init__.py

person_formats_de_at <- c(
  "{{first_names}} {{last_names}}",
  "{{first_names}} {{last_names}}",
  "{{first_names}} {{last_names}}",
  "{{first_names}} {{last_names}}",
  "{{first_names}} {{last_names}}",
  "{{prefixes}} {{first_names}} {{last_names}}",
  "{{first_names}} {{last_names}}",
  "{{prefixes}} {{first_names}} {{last_names}}"
)

person_first_names_de_at <- c(
  "Alexander", "Alina", "Andreas", "Anna", "Anton",
  "Benjamin", "Bernhard",
  "Christian", "Christop",
  "Daniel", "David", "Dominik",
  "Elena", "Elias", "Emil", "Emilia",
  "Fabian", "Felix", "Florian", "Franz", "Fransizka",
  "Gabriel", "Gernot",
  "Hanna", "Ingrid", "Isabel",
  "Jakob", "Jana", "Jasmin", "Johanna", "Johannes", "Jonas", "Julia", "Julian",
  "Katharinna", "Konrad", "Konstantin",
  "Lara", "Laura", "Lena", "Leo", "Leon", "Linda", "Luca", "Lukas",
  "Marcel", "Maria", "Martin", "Matthias", "Max", "Maximilian", "Mia", "Michael", "Moritz",
  "Nico", "Niklas", "Nina", "Noah",
  "Oliver", "Olivia",
  "Paul", "Paula", "Philipp", "Pia",
  "Raphael", "Robert",
  "Samuel", "Sarah", "Sebastian", "Simon", "Sophie",
  "Theresa", "Thomas", "Tim", "Tobias",
  "Valentin"
)

person_last_names_de_at <- c(
  "Auer", "Aigner",
  "Bauer", "Baumgartner", "Berger", "Binder", "Brunner",
  "Cap", "Capek", "Cech", "Chum",
  "Deng", "Denk", "Daume", "Dienstl",
  "Ebner", "Eder", "Egger",
  "Fasching", "Felber", "Ferstel", "Fichtner", "Fischer", "Fuchs",
  "Gasser", "Gastegger", "Geier", "Geisler", "Grabner", "Gruber",
  "Haas", "Haiden", "Hofer", "Holzer", "Huber",
  "Illes", "Ircher", "Itzlinger",
  "Jahn", "Jobst", "Jung", "Jungbauer", "Just",
  "Kainz", "Karl", "Karner", "Koller",
  "Lang", "Lechner", "Lehner", "Leitner",
  "Maier", "Mair", "Maurer", "Mayer", "Mayr", "Moser", "M\u00fcllner",
  "Pichler", "Pucher",
  "Reiter", "Riegler",
  "Schmid", "Schneider", "Schuster", "Schwarz", "Stadler", "Steiner",
  "Wallner", "Weber", "Weiss", "Wieser", "Wimmer", "Winkler", "Winter", "Wolf"
)

person_prefixes_de_at <- c("Dr.", "Mag.", "Ing.", "Dipl.-Ing.", "Prof.", "Univ.Prof.")

person_de_at <- list(
  first_names = person_first_names_de_at,
  last_names = person_last_names_de_at,
  prefixes = person_prefixes_de_at
)

#' @title Person Provider for Austrian German
#' @inherit PersonProvider description details return
#' @export
#' @family de
#' @family AT
#' @details Note for female and male components that we fall back on generic
#' versions if the locale
#' doesn't provide a male/female version.
#' e.g., if no female first name we use first
#' name
#' @examples
#' x <- PersonProvider_de_AT$new()
#' x$locale
#' x$render()
#' x$first_name()
#' x$first_name_female()
#' x$first_name_male()
#' x$last_name()
#' x$last_name_female()
#' x$last_name_male()
PersonProvider_de_AT <- R6::R6Class(
  "PersonProvider_de_AT",
  inherit = PersonProvider,
  private = list(
    formats = person_formats_de_at,
    persons = person_de_at,
    locale_ = "de_AT"
  )
)