R/banking.R

Defines functions credit_card

Documented in credit_card

#' Credit card expense data
#'
#' @export
credit_card <- function() {
  category <- airtable(base_name = "banking", table_name = "category")
  category_name <- setNames(category$name, category$id)

  airtable(base_name = "banking", table_name = "credit_card",
           date = "date", single_link = "category") %>%
    dplyr::mutate(category = category_name[.data$category]) %>%
    dplyr::mutate(term_month = as.integer(.data$term_month)) %>%
    dplyr::select("year", "term_month", "date", "description", "currency",
                  "amount", "category")
}
refik/refik documentation built on May 24, 2019, 6:17 a.m.