Função para baixar o inteiro teor dos acordos e convenções coletivos do sistema mediador do Ministério do Trabalho

mediador_inteiro_teor.R

library(RCurl)
library(XML)
library(stringi)

mediador_inteiro_teor<-function(solicitacao,download=TRUE,vector=TRUE){
  
  url<-paste0("http://www3.mte.gov.br/sistemas/mediador/Resumo/ResumoVisualizar?NrSolicitacao=",solicitacao)
  
  ## Cria um objeto a parte para usá-lo a fim de nomear os arquivos a serem baixados
  s<-as.character(solicitacao)
  s<-stri_replace_first_regex(s,"/","_")
  
  ## Inicia o loop para baixar os textos.
  inteiro.teor<-""
  for(i in 1:length(s)){
    s1<-getURL(url[i])
    s1<-htmlParse(s1,encoding="UTF-8")
    s1<-xpathApply(s1,"//*[@class='titulo' or @align='justify' or @class='textosubgrupo'or @class='tituloClausula' or  @class='textonome' or @class='descricaoClausula']",xmlValue)
    s1<-toString(unlist(s1))
    s1<-stri_replace_all_regex(s1,"\\s+,","\n")
    if(vector==TRUE) inteiro.teor[i]<-s1
    if(download==TRUE) write(s1,paste0(s[i],".txt"))
  }
  return(inteiro.teor)
}