Busca dados de execução orçamentárias por função de governo

etl_dados_funcoes.r

library(tesouror)

library(tidyverse)



ufs<-
tibble::tribble(
  ~sigla_uf, ~uf,                    ~cod_ibge,
  "AC",      "Acre",                 12,
  "AL",      "Alagoas",              27,
  "AP",      "Amapá",                16,
  "AM",      "Amazonas",             13,
  "BA",      "Bahia",                29,
  "CE",      "Ceará",                23,
  "DF",      "Distrito Federal",     53,
  "ES",      "Espírito Santo",       32,
  "GO",      "Goiás",                52,
  "MA",      "Maranhão",             21,
  "MT",      "Mato Grosso",          51,
  "MS",      "Mato Grosso do Sul",   50,
  "MG",      "Minas Gerais",         31,
  "PA",      "Pará",                 15,
  "PB",      "Paraíba",              25,
  "PR",      "Paraná",               41,
  "PE",      "Pernambuco",           26,
  "PI",      "Piauí",                22,
  "RN",      "Rio Grande do Norte",  24,
  "RS",      "Rio Grande do Sul",    43,
  "RJ",      "Rio de Janeiro",       33,
  "RO",      "Rondônia",             11,
  "RR",      "Roraima",              14,
  "SC",      "Santa Catarina",       42,
  "SP",      "São Paulo",            35,
  "SE",      "Sergipe",              28,
  "TO",      "Tocantins",            17
)




dados_funcao_2019_2026<- 
  
  map_dfr(2019:2026, function(ano){
    map_dfr(sort(ufs$cod_ibge) , function(codigo){
      print(ano)
      print(codigo)
      get_rreo(an_exercicio = ano,
               nr_periodo = ifelse(ano== 2026,2,6),
               co_tipo_demonstrativo = "RREO",
               no_anexo =   "RREO-Anexo 02",
               id_ente = codigo,
               #co_esfera = "E",
               verbose = TRUE)
      
      
      
    })
  })

dados_anexo_14_rreo_2019_2026<- 
  
  map_dfr(2019:2026, function(ano){
    map_dfr(sort(ufs$cod_ibge) , function(codigo){
      print(ano)
      print(codigo)
      get_rreo(an_exercicio = ano,
               nr_periodo = ifelse(ano== 2026,2,6),
               co_tipo_demonstrativo = "RREO",
               no_anexo =   "RREO-Anexo 14",
               id_ente = codigo,
               #co_esfera = "E",
               verbose = TRUE)
      
      
      
    })
  })


dados_cumprimento_constitucional_saude<-
  dados_anexo_14_rreo_2019_2026 %>%
  filter(str_detect(conta, "Despesas com Ações e Serviços Públicos de Saúde"),
         coluna == "% Aplicado Até o Bimestre")

saveRDS(dados_cumprimento_constitucional_saude,"dados_cumprimento_constitucional_saude.rds")



saveRDS(dados_funcao_2019_2026, "dados_funcao_2019_2026.rds")