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')
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.