O download dos DJE's do TJRS é feito visitando links da forma
http://www3.tjrs.jus.br/servicos/diario_justica/download_edicao.php?tp=[caderno]&ed=[edição]
como por exemplo
http://www3.tjrs.jus.br/servicos/diario_justica/download_edicao.php?tp=5&ed=5823 e
http://www3.tjrs.jus.br/servicos/diario_justica/download_edicao.php?tp=5&ed=3424
Em http://www.tjrs.jus.br/busca/?tb=dj tem um menu roll-over com todos os períodos para os quais existem DJE's disponíveis. O menu é alimentado por um conjunto de tabelas em JSON que vêm de links da forma http://www.tjrs.jus.br/servicodag/?callback=edicoesPeriodo&tipo=periodo&periodo=[mes-ano]&_=1467218025980.
Para decidirmos o que baixar, vamos construir uma tabela contendo, para todo caderno disponível, as seguintes informações:
A construção é feita:
library(magrittr) meses_a_coletar <- expand.grid(1:12,2006:2016) %>% dplyr::transmute(mesano = sprintf('%.2d-%d',Var1,Var2)) %>% plyr::mdply(lista_dje_mes) meses_a_coletar %<>% dplyr::mutate(ed = stringi::stri_extract_all(regex = 'ed\\=[0-9]{4}',link), ed = gsub('ed\\=','',ed)) saveRDS(meses_a_coletar,'meses_a_coletar.rds')
meses_a_coletar <- readRDS('meses_a_coletar.rds')
Grande parte dos cadernos encontrados não fornecem informações sobre processos judiciais em curso ou sendo distribuídos, como no casos das listas de jurados, por exemplo. Excluindo esses casos, continuamos com os cadernos da tabela abaixo:
library(magrittr) meses_a_coletar %>% dplyr::filter(!grepl('[Jj]urados|Tabela de Emolumentos',nome_caderno), !is.na(nome_caderno)) %>% dplyr::count(nome_caderno) %>% setNames(c('Nome do caderno', 'Observações')) %>% dplyr::arrange_(desc('Observações')) %>% pander::pander()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.