R/check_initial_balance.R

In tilschuenemann/ledger: Banking Export Manipulation Made Easy

#' 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!")
  }

}