#' @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")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.