<div dir="ltr">Senhores, acho que a questão é simples mas eu me confundo com encodings no R. No exemplo abaixo estou utilizando a função postForm para informar um número de rastreador no site dos correios. Em seguida, utilizo o pacote XML para limpar o código fonte e ficar com o que me interessa, que são os dados da carta em trânsito, desde Foz do Iguacu até minha casa.<div>
<br></div><div>Está funcionando, mas eu gostaria que os acentos estivessem corretos.</div><div>O resultado que obtenho no R é esse:</div><div><span class="" style="border-collapse:separate;color:rgb(0,0,0);font-family:'Ubuntu Mono';font-size:14px;line-height:16px;white-space:pre-wrap;border-spacing:0px;background-color:rgb(225,226,229)"><pre tabindex="0" class="" style="font-family:'Ubuntu Mono';outline:none;border:none;word-break:break-all;margin-top:0px;margin-bottom:0px;line-height:1.2;font-size:10.4pt!important;white-space:pre-wrap!important">
[1] "\r04/06/2014  \r17:06 FOZ DO IGUACU / PR\r\r\r\r\rObjeto postado \r \r"</pre></span></div><div><br></div><div>Marquei o enconding como "ISO-8859-1" porque é o que aparece no começo do código fonte da página:</div>
<div><span class="" style="font-family:monospace;font-size:medium;white-space:pre-wrap"><meta <span class="">http-equiv</span>="<span class="">Content-Type</span>" <span class="">content</span>="<span class="">text/html; charset=ISO-8859-1</span>"></span><span style="color:rgb(0,0,0);font-family:monospace;font-size:medium;white-space:pre-wrap">
</span></div><div><br></div><div>Como posso melhorar?</div><div>Segue o código:</div><div><br></div><div><div>require(RCurl)</div><div>require(XML)</div><div><br></div><div>add<-"<a href="http://www2.correios.com.br/sistemas/rastreamento/resultado.cfm">http://www2.correios.com.br/sistemas/rastreamento/resultado.cfm</a>"</div>
<div>src<-postForm(add, .params = c(objetos="JG310431462BR",</div><div>                               btnPesq="Buscar",</div><div>              .enconding="ISO-8859-1"))</div><div><br></div>
<div>tree<-htmlTreeParse(src, useInternalNodes=T)</div><div>xpathSApply(tree, '//table', xmlValue)</div></div><div><br></div><div><br></div><div><br></div><div>Grato,</div><div>Paulo Nogueira Starzynski</div><div>
<br></div></div>