R/get_expense_data.R

In tchiluanda/rtn: Data manipulation from Relaório do Tesouro Nacional (RTN) database

#' Get RTN expense data by year
#' @param year vector indicating the year or reference. NULL for all years
#' @return tibble with all.
#' @examples
#' get_expense_data(year = 2021)
#' @export

get_expense_data <- function(year= NULL){

  df_trabalho<- get_full_data()

  df_trabalho <-
  df_trabalho %>%
    dplyr::filter(tipo == "D")

  if (!is.null(year)){

    df_trabalho<-
    df_trabalho %>%
      dplyr::filter(lubridate::year(Data) %in% year)

  }

  df_trabalho

}