# modified from the python library faker:
# https://github.com/joke2k/faker/blob/master/faker/providers/person/ko_KR/__init__.py
person_formats_ko_kr <- c(
"{{first_names}}{{last_names}}",
"{{first_names}}{{last_names1}}{{last_names2}}"
)
person_first_names_ko_kr <- c(
"\uae40",
"\uc774",
"\ucd5c",
"\ubc15",
"\uc815",
"\uac15",
"\uc870",
"\uc724",
"\uc7a5",
"\uc784",
"\uc624",
"\ud55c",
"\uc2e0",
"\uc11c",
"\uad8c",
"\ud669",
"\uc548",
"\uc1a1",
"\ub958",
"\ud64d",
"\uc804",
"\uace0",
"\ubb38",
"\uc190",
"\uc591",
"\ubc30",
"\uc870",
"\ubc31",
"\ud5c8",
"\ub0a8",
"\uc2ec",
"\uc720",
"\ub178",
"\ud558",
"\uc804",
"\uc815",
"\uacfd",
"\uc131",
"\ucc28",
"\uc720",
"\uad6c",
"\uc6b0",
"\uc8fc",
"\uc784",
"\ub098",
"\uc2e0",
"\ubbfc",
"\uc9c4",
"\uc9c0",
"\uc5c4",
"\uc6d0",
"\ucc44",
"\ucc9c",
"\uc591",
"\uacf5",
"\ud604",
"\ubc29",
"\ud568",
"\uc5fc",
"\uc5ec",
"\ucd94",
"\ubcc0",
"\ub3c4",
"\uc11d",
"\uc18c",
"\uc120",
"\uc124",
"\ubc29",
"\ub9c8",
"\uae38",
"\uc704",
"\uc5f0",
"\uba85",
"\uae30",
"\uae08",
"\uc655",
"\ubc18",
"\uc625",
"\uc721",
"\uc9c4",
"\uc778",
"\ub9f9",
"\uc81c",
"\ud0c1",
"\ubaa8",
"\ub0a8\uad81",
"\uc5b4",
"\uc6a9",
"\ud3b8",
"\ubd09",
"\uad6c",
"\uc608",
"\uacbd",
"\uc0ac",
"\ubd80",
"\ud669\ubcf4",
"\uac00",
"\ubcf5",
"\uacc4",
"\uc81c\uac08",
"\uc0ac\uacf5",
"\uc120\uc6b0",
"\ud33d",
"\uacac",
"\uc885",
"\uc2b9",
"\ub3c5\uace0",
"\uc639",
"\ube59",
"\uc7a5",
"\ucd94",
"\ud3b8",
"\uc544",
"\uc810",
"\ud765",
"\ub0ad",
"\ud574",
"\ud310",
"\ucd08",
"\ud544",
"\uad89",
"\uadfc",
"\ub9e4",
"\ub3d9\ubc29",
"\ud638",
"\ub450",
"\ubbf8",
"\uc694",
"\uc57c",
"\ubb35",
"\uc790",
"\ub9cc",
"\uc6b4",
"\ud658",
"\ubc94",
"\ucc3d",
"\uc5fd",
"\uc218",
"\uc560",
"\ub2e8",
"\uc21c",
"\ub3c8",
"\uc900",
"\ubb18",
"\ub2f4",
"\uc7a5\uace1",
"\uc5b4\uae08",
"\uac15\uc804",
"\uc0bc",
"\uc800",
"\uad70",
"\uad50",
"\uc601",
"\ud6c4",
"\ub204",
"\uc18c\ubd09",
"\ub1cc",
"\ub9dd\uc808",
"\uc6d0",
"\uc999",
"\uc99d"
)
person_last_names_ko_kr <- c(
"\uc7ac",
"\uc6b0",
"\uc9c0",
"\ud658",
"\ud604",
"\uc6c5",
"\uadfc",
"\ucca0",
"\ubbfc",
"\uc815",
"\ud76c",
"\uc131",
"\uc8fc",
"\ub2e4",
"\ub824",
"\ube48",
"\uc601",
"\uc900",
"\uc9c4",
"\ud601",
"\uc218",
"\ub300",
"\ud638",
"\ud5a5",
"\uc5f4",
"\uc21c",
"\ubbf8",
"\uc5f0",
"\uc720",
"\ub9ac",
"\ud6c8",
"\uc775",
"\ud61c",
"\uc740",
"\ud718",
"\ubc94",
"\ub450",
"\ud0dc",
"\ud669",
"\uacbd",
"\ud1b5",
"\uc6d0",
"\ud558",
"\uac00",
"\ub78c",
"\uc120",
"\uad00",
"\ub828",
"\ubcf4",
"\uc885",
"\uc18c",
"\uc608",
"\uc11d",
"\ud798",
"\ucc2c",
"\uc2b9",
"\uc0c1",
"\ud55c",
"\ubcc4",
"\ud64d",
"\uc6a9",
"\uc544",
"\ub355",
"\uade0",
"\uc758",
"\ud6c4",
"\uad6c",
"\ud615",
"\uaddc",
"\uc548",
"\uac15",
"\uc0b0",
"\uba85",
"\uc138",
"\ud6a8",
"\ubb34",
"\ud611",
"\uae30",
"\uc5b5",
"\ub3d9",
"\uc644",
"\uc724",
"\ucc3d",
"\ub3c4",
"\uc704",
"\uc5fd",
"\uc628",
"\uad8c",
"\ubcd1",
"\uc6b1",
"\ube44",
"\ud654",
"\uc2ac",
"\uc1a1",
"\uad11",
"\ub0a8",
"\uc778",
"\ud574",
"\uc591",
"\ub9bc",
"\ub780",
"\uac74",
"\uc194",
"\uae08"
)
person_ko_kr <- list(
first_names = person_first_names_ko_kr,
last_names = person_last_names_ko_kr
)
#' @title Person Provider for Korean (Republic of Korea)
#' @inherit PersonProvider description details return
#' @export
#' @family ko
#' @family KR
#' @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_hr_HR$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_ko_KR <- R6::R6Class(
"PersonProvider_ko_KR",
inherit = PersonProvider,
private = list(
formats = person_formats_ko_kr,
persons = person_ko_kr,
locale_ = "ko_KR"
)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.