Nothing
## ----echo=FALSE---------------------------------------------------------------
knitr::opts_chunk$set(
comment = "#>",
collapse = TRUE,
warning = FALSE,
message = FALSE
)
## ----eval=FALSE---------------------------------------------------------------
# install.packages("charlatan")
## ----eval=FALSE---------------------------------------------------------------
# devtools::install_github("ropensci/charlatan")
## -----------------------------------------------------------------------------
library("charlatan")
## -----------------------------------------------------------------------------
x <- fraudster()
x$job()
x$name()
x$job()
x$color_name()
## -----------------------------------------------------------------------------
ch_job(locale = "en_US", n = 3)
ch_job(locale = "fr_FR", n = 3)
ch_job(locale = "hr_HR", n = 3)
ch_job(locale = "uk_UA", n = 3)
ch_job(locale = "zh_TW", n = 3)
## -----------------------------------------------------------------------------
ch_color_name(locale = "en_US", n = 3)
ch_color_name(locale = "uk_UA", n = 3)
## -----------------------------------------------------------------------------
ch_generate()
## -----------------------------------------------------------------------------
ch_generate("job", "phone_number", n = 30)
## -----------------------------------------------------------------------------
ch_name()
## -----------------------------------------------------------------------------
ch_name(10)
## -----------------------------------------------------------------------------
ch_phone_number()
## -----------------------------------------------------------------------------
ch_phone_number(10)
## -----------------------------------------------------------------------------
ch_job()
## -----------------------------------------------------------------------------
ch_job(10)
## -----------------------------------------------------------------------------
ch_credit_card_provider()
ch_credit_card_provider(n = 4)
## -----------------------------------------------------------------------------
ch_credit_card_number()
ch_credit_card_number(n = 10)
## -----------------------------------------------------------------------------
ch_credit_card_security_code()
ch_credit_card_security_code(10)
## -----------------------------------------------------------------------------
testVector <- MissingDataProvider$new()
## -----------------------------------------------------------------------------
testVector$make_missing(x = ch_generate()$name)
## -----------------------------------------------------------------------------
testVector$make_missing(x = ch_integer(10))
## -----------------------------------------------------------------------------
set.seed(123)
testVector$make_missing(x = sample(c(TRUE, FALSE), 10, replace = TRUE))
## -----------------------------------------------------------------------------
ch_name(50, messy = TRUE)
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.