#' 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")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.