Nothing
devtools::load_all()
z <- PersonProvider$new(locale = "pl_PL")
z$locale
z$render()
z$first_name()
z$first_name_female()
z$first_name_male()
z$last_name()
z$last_name_female()
z$last_name_male()
z$prefix()
z$suffix()
tools::showNonASCIIfile("R/jobs-provider-nl_NL.R")
to_replace <- vapply(job_formats_nl_nl, "[[", "", 1)
replaced <- stringi::stri_escape_unicode(to_replace)
invisible(lapply(replaced, function(z) cat(sprintf('"%s",', z), sep="\n")))
## where a list with each elemnt a two length vector
## where the first is to be encoded
invisible(lapply(lorem_word_list_, function(x) {
x[1] <- stringi::stri_escape_unicode(x[1])
cat(sprintf('c("%s", "%s"),', x[1], x[2]), sep="\n")
}))
## where a character vector
x <- stringi::stri_escape_unicode(lorem_word_list_zh_tw)
invisible(lapply(x, function(z) cat(sprintf('"%s",', z), sep="\n")))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.