In courtsbr/scraperTJRS:

Esse código produz a tabela que associa comarcas e foros do TJRS a códigos númericos.

library(dplyr)
library(abjutils)

comarcas_tjrs <- 'http://www.tjrs.jus.br/site/processos/numeracao_unica_de_processos_judiciais/' %>% 
  xml2::read_html()  %>% 
  rvest::html_table(header = T)  %>% 
  as.data.frame()  %>% 
  dplyr::as_data_frame() %>% 
  dplyr::mutate(codigo_themis = substr(`Código`, 2,4),
                nome_comarca = gsub(' ','+',`Órgãos`),
                id_comarca = gsub(' d[eo] | ','_',rm_accent(tolower(`Órgãos`))))  %>% 
  setNames(c('orgaos','origem','codigo','codigo_themis','nome_comarca','id_comarca'))

comarcas_tjrs %>% 
  pander::pandoc.table()

courtsbr/scraperTJRS documentation built on May 29, 2019, 12:37 p.m.