R/internet-provider-de_DE.R

In ropensci/charlatan: Make Fake Data

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


int_free_email_domains_de_de <- c(
  "aol.de", "gmail.com", "gmx.de", "googlemail.com", "hotmail.de",
  "web.de", "yahoo.de"
)
int_tlds_de_de <- c("com", "com", "com", "net", "org", "de", "de", "de")

int_replacements_de_de <- list(
  c("\\u00e4", "ae"),
  c("\\u00c4", "Ae"),
  c("\\u00f6", "oe"),
  c("\\u00d6", "Oe"),
  c("\\u00fc", "ue"),
  c("\\u00dc", "Ue"),
  c("\\u00e9", "e"),
  c("\\u00c9", "E"),
  c("\\u00e0", "a"),
  c("\\u00c0", "A"),
  c("\\u00df", "ss")
)

#' Internet provider
#'
#' methods for internet related data, like email addresses,
#' usernames, and websites.
#' @family de
#' @family DE
#' @export
#' @examples
#' x <- InternetProvider_de_DE$new()
#' x$email()
#' x$free_email()
#' x$mac_address()
#' x$company_email()
InternetProvider_de_DE <- R6::R6Class(
  inherit = InternetProvider,
  "InternetProvider_de_DE",
  private = list(
    locale_ = "de_DE",
    free_email_domains = int_free_email_domains_de_de,
    tlds = int_tlds_de_de,
    replacements = int_replacements_de_de
  )
)