R/currency.R

In jameslairdsmith/mint: What the Package Does (One Line, Title Case)

#' @export

new_currency <- function(n = integer(),
                         prefix = character(),
                         suffix = character(),
                         abbr = character()) {

  vec_assert(n, ptype = integer())
  vec_assert(prefix, ptype = character())
  vec_assert(suffix, ptype = character())
  vec_assert(abbr, ptype = character())

  new_rcrd(list(n = n,
                prefix = prefix,
                suffix = suffix,
                abbr = abbr),
           class = "mint_currency")
}