R/currency.R

In ropenscilabs/charlatan: Make Fake Data

#' Create fake currencies
#'
#' @export
#' @template params
#' @seealso [CurrencyProvider]
#' @examples
#' ch_currency()
#' ch_currency(10)
#' # or even ch_currency(500)
ch_currency <- function(n = 1) {
  assert(n, c("integer", "numeric"))
  if (n == 1) {
    CurrencyProvider$new()$render()
  } else {
    x <- CurrencyProvider$new()
    replicate(n, x$render())
  }
}