Skip to content

Instantly share code, notes, and snippets.

@sergiospagnuolo

sergiospagnuolo/coronavirus_rubrica_dados.R

Created April 13, 2020 14:49
Show Gist options
  • Star 2 You must be signed in to star a gist
  • Fork 1 You must be signed in to fork a gist
  • Save sergiospagnuolo/86141036c589828adc8bc55e498772bb to your computer and use it in GitHub Desktop.
Save sergiospagnuolo/86141036c589828adc8bc55e498772bb to your computer and use it in GitHub Desktop.
Download ZIP
pega dados do Portal da Transparência sobre coronavírus
Raw
coronavirus_rubrica_dados.R
library(tidyverse)
library(jsonlite)
library(lubridate)
library(deflateBR)
library(scales)
library(clipr)
# contexto: http://www.portaltransparencia.gov.br/comunicados/603503-portal-da-transparencia-divulga-gastos-federais-especificos-para-combate-ao-coronavirus
url <- "http://www.portaltransparencia.gov.br/despesas/consulta/resultado?paginacaoSimples=true&tamanhoPagina=500&offset=0&direcaoOrdenacao=desc&colunaOrdenacao=mesAno&de=01%2F01%2F2020&ate=30%2F04%2F2020&acao=00S4%2C21C2%2C21C0&colunasSelecionadas=linkDetalhamento%2CmesAno%2CorgaoSuperior%2CorgaoVinculado%2CunidadeGestora%2Cfuncao%2CsubFuncao%2Cprograma%2Cacao%2CprogramaGoverno%2CgrupoDespesa%2CelementoDespesa%2CmodalidadeDespesa%2CvalorDespesaEmpenhada%2CvalorDespesaLiquidada%2CvalorDespesaPaga%2CvalorRestoPago&_=1586706855177"
dc <- jsonlite::fromJSON(url)
enfrentamento_corona <- dc[["data"]]
enfrentamento_corona <- enfrentamento_corona[,-25]
d <- enfrentamento_corona
d$valorDespesaEmpenhada <- gsub("\\.", "", d$valorDespesaEmpenhada)
d$valor <- round(as.numeric(sub(",", ".", as.character(d$valorDespesaEmpenhada))), 1)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment