bolsonaro

discursos_bolsonaro.r

library(rvest)
library(tidyverse)

#-- links
url = "https://www.camara.leg.br/internet/sitaqweb/resultadoPesquisaDiscursos.asp?txIndexacao=&CurrentPage=19&BasePesq=plenario&txOrador=JAIR%20BOLSONARO&txPartido=&dtInicio=&dtFim=&txUF=&txSessao=&listaTipoSessao=&listaTipoInterv=&inFalaPres=&listaTipoFala=&listaFaseSessao=&txAparteante=&listaEtapa=&CampoOrdenacao=dtSessao&TipoOrdenacao=DESC&PageSize=50&txTexto=&txSumario="

url %>% 
  read_html(url) %>% 
  html_nodes("a") %>% 
  html_attr("href") %>% 
  tibble() %>% 
  set_names("x") %>% 
  filter(str_detect(x, "TextoHTML")) %>% 
  mutate(x = paste0("https://www.camara.leg.br/internet/sitaqweb/",
                    str_replace_all(x, pattern="\\r|\\n|\\t", "")),
         x = str_replace_all(x, " ", "%20"),
         x = str_replace_all(x, "á", "%C3%A1"),
         x = str_replace_all(x, "ç", "%C3%A7"),
         x = str_replace_all(x, "õ", "%C3%B5"),
         x = str_replace_all(x, "ó", "%C3%B3"),
         x = str_replace_all(x, "ã", "%C3%A3")) -> b

#-- get text
disc <- imap_chr(b$x, function(x,y) {
  x %>% 
    read_html() %>% 
    html_nodes("p") %>% 
    html_text() -> z
  
  z <- trimws(str_replace_all(z, pattern="\\r|\\n|\\t", " "))
  print(y)
  return(z)
})

haha muito bom!!! Deixa eu perguntar, onde está explícito que é sobre o Jair, aí no seu código. Tentei pesquisar outras palavras, mas dá erro. É possível fazer isso?

haha muito bom!!! Deixa eu perguntar, onde está explícito que é sobre o Jair, aí no seu código. Tentei pesquisar outras palavras, mas dá erro. É possível fazer isso?

O link que ele acessa somente inclui falas do Jair. Se quer de outro político, é só o link incluir outras falas