stf_incidente.R

library(rvest)
library(purrr)

stf_incidente <- function(tipo, numero){
  stf_session <- html_session("http://www.stf.jus.br/portal/processo/listarProcesso.asp")
  stf_session$url <- "http://www.stf.jus.br/portal/processo/listarProcesso.asp"
  stf_form <- html_form(read_html(stf_session))[[3]]
  stf_form <- set_values(stf_form, 
                         numero = numero)
  stf_submission <- submit_form(stf_session, stf_form)
  
  processos <- stf_submission %>% 
    html_nodes("td a") %>%
    html_text()
  
  incidentes <- stf_submission %>% 
    html_nodes("td a") %>% 
    html_attr("href")
  
  incidentes <- as.numeric(
    substr(incidentes, 43, nchar(incidentes))
  )
  
  incidentes[grep(tipo, processos)]
}

stf_incidente("ADI", 3000)
map_dbl(1:100, function(x) {stf_incidente("ADI", x)})