R/dataEconomicSubFunction.R

In tchiluanda/Rcofog: Retrieve Expenses on Gonvernment Functions

#' Get data about a set of government sub-functions and economic classifications
#'
#' @param year number
#' @return tibble.
#' @examples
#' dataEconomicSubFunction(year=2020)
#' @export


dataEconomicSubFunction<- function(year=2020, sel_function= "Educação"){

  dados_economicos <- dataEconomicClassification(year)

  .data<-
    dados_economicos %>%
    dplyr::filter(codigo_cofog_pai %in% (dados_economicos %>%
                                           dplyr::filter(descricao_cofog == sel_function) %>%
                                           dplyr::select(codigo_cofog))$codigo_cofog)

  .data


}