#' An S4 class to represent a bank account.
#'
#' @slot balance A length-one numeric vector
Account <- setClass("Account",
slots = list(balance = "numeric")
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.