fernandobarbalho

library(jsonlite)
library(purrr)

legislatura<-"56"

#Endereço básico para capturar todos os deputados de uma legislatura
path<- "https://dadosabertos.camara.leg.br/api/v2/deputados?idLegislatura=%s&ordem=ASC&ordenarPor=nome"

path<- sprintf(path, legislatura)

fernandobarbalho

devtools::install_github("tchiluanda/rsiconfi")
library(rsiconfi)
library(networkD3)
library(tidyverse)


#Get data in SICONFI for budget revenue (Ï-C) related to the federal government entity (1) in 2018
df_rec <- rsiconfi::get_dca(2018,"I-C","1")

# find hierachical strtucture of budget revenue

fernandobarbalho

library(readr)
library(tidyverse)
library(data.table)

library(geobr)
library(cartogram)
library(sf)

library(colorspace)

fernandobarbalho

library(rtweet)
library(tidyverse)
library(lubridate)
library(colorspace)
library(ggpattern)
library(ggTimeSeries)
library(patchwork)


pepito<- rtweet::get_timeline(user = "@PepitoTheCat",n=3200)

fernandobarbalho

library("tabulizer")
library("tidyverse")
library(readr)


cime_total<- tabulizer::extract_text("cime-20.01.pdf")

pos_ini<-
str_length("Secretaria de Estado de Administração Penitenciária do Distrito Federal\r\nCentro de Monitoração Eletrônica - CIME\r\n")

fernandobarbalho

library(rtweet)

#As 100 mais recentes listas do Jeff
listas_jeff<- rtweet::lists_users(user = "jnascim", reverse = TRUE)

#Dados de twitter sobre os membros da 56ª  legislatura da câmara
members_camara_leg_56<- rtweet::lists_members(list_id = "1093197444874153985")

#Dados de twitter sobre membros da 56ª  legislatura do senado
members_senado<- rtweet::lists_members(list_id = "1091163823858503685")

fernandobarbalho

library(tidyverse)
library(colorspace)
library(ggrepel)

set.seed(13)
good_vibes <- rnorm(n=100, mean=90, sd=2)
set.seed(22)
bad_vibes <- rnorm(n=100, mean=70, sd=2)

fernandobarbalho

library(readxl)
library(readr)
library(tidyverse)
library(lubridate)
library(rsiconfi)

arquivo_geral <- read_excel("HIST_PAINEL_COVIDBR_30jun2020.xlsx", 
                                            col_types = c("text", "text", "numeric", 
                                                          "text", "numeric", "numeric", "numeric", 
                                                          "date", "numeric", "text", "numeric", 

fernandobarbalho

library(stringr)
library(purrr)
library(readr)

file_txt<- "<Nome_do_arquivo_baixado.txt>"

conversa_txt <- readLines(file(file_txt , encoding = "UTF8"))


id_linhas_sujas<-

fernandobarbalho

# install.packages("devtools")
devtools::install_github("tchiluanda/rsiconfi")

library(rsiconfi)
library(tidyverse)



#Busca os dados do rreo para o ano de 2021 no RN, relatório "01" (balanço orçamentário)