R/check_missing_transactions.R

In cryptoTax: Report Crypto Taxes (Canada Only)

#' @title View rows with negative total balances
#'
#' @description View rows with negative total balances to help identify 
#' missing transactions.
#' @param formatted.ACB The formatted.ACB file
#' @export
#' @return A data frame, filtered with the rows containing a total
#' quantity smaller than zero.
#' @examples
#' all.data <- format_shakepay(data_shakepay)
#' formatted.ACB <- format_ACB(all.data, verbose = FALSE)
#' check_missing_transactions(formatted.ACB)
#' @importFrom dplyr %>% rename mutate select filter bind_rows group_by slice_tail
#' @importFrom rlang .data

check_missing_transactions <- function(formatted.ACB) {
  formatted.ACB %>% 
    filter(.data$total.quantity < 0)
}