library(httr)
library(dplyr)
library(rvest)
library(stringr)
library(tjrj)
codigos <- c('01083304780', '02312604000107', '10862982000184', 
             '10862982000184', '10862982000184', '00424667000111',
             '03435172000186')

d <- pesquisa_codigos(codigos, path = 'inst/pages')

d %>% filter(coma_val == '201', comp_val == '01', codigo == '01083304780')

path <- 'inst/pages'
f <- list.files(path, full.names = TRUE)
sizes <- file.info(f)
table(sizes$size)

d_parsed <- tjrj::parse_files(path)
d_final <- inner_join(d, d_parsed, c('a' = 'l'))
openxlsx::write.xlsx(d_final, 'inst/extdata/resultados.xlsx')


jtrecenti/tjrj documentation built on May 20, 2019, 3:18 a.m.