#' Title
#'
#' @param ledger ledger
#'
#' @export
#'
#' @import dplyr
check_initial_balance <- function(ledger){
amount_initbal <- ledger %>%
filter(.data$recipient == "~~LEDGER INITIAL BALANCE") %>%
nrow()
if (amount_initbal >= 1) {
stop("initial balance has been set already!")
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.