R/get_cc_data.R

In meerawhy/financeTracker:

#' Get Data from MASTER Credit Card tracking sheet
#' @importFrom magrittr %>%
#' @importFrom gXtra read_gs
#' @importFrom gXtra get_gsheet_metadata
#' @import dplyr
#' @export

get_cc_data <-
        function() {
                gsheet_metadata <- gXtra::get_gsheet_metadata(Sys.getenv("master_credit_card_gsheet_id"))
                gXtra::read_gs(gsheet_metadata = gsheet_metadata)
        }