<html><head></head><body><div style="color:#000; background-color:#fff; font-family:Courier New, courier, monaco, monospace, sans-serif;font-size:16px"><div id="yui_3_16_0_1_1450292239588_4817"><span></span></div><div></div><div id="yui_3_16_0_1_1450292239588_4833"> </div><div class="signature" id="yui_3_16_0_1_1450292239588_4845"><div id="yui_3_16_0_1_1450292239588_4844"><font face="verdana, helvetica, sans-serif" size="1"><b>Paulo, MUITO obrigado! Tenho que estudar e aprender a usar as funções de manipulações!</b></font></div><div id="yui_3_16_0_1_1450292239588_4844"><font face="verdana, helvetica, sans-serif" size="1"><b><br></b></font></div><div id="yui_3_16_0_1_1450292239588_4844"><font face="verdana, helvetica, sans-serif" size="1"><b>Salvou o dia!</b></font></div><div id="yui_3_16_0_1_1450292239588_4844"><font face="verdana, helvetica, sans-serif" size="1"><b><br></b></font></div><div id="yui_3_16_0_1_1450292239588_4844"><font face="verdana, helvetica, sans-serif" size="1"><b>Abrax</b></font></div></div> <br><div class="qtdSeparateBR"><br><br></div><div class="yahoo_quoted" style="display: block;"> <div style="font-family: Courier New, courier, monaco, monospace, sans-serif; font-size: 16px;"> <div style="font-family: HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif; font-size: 16px;"> <div dir="ltr"><font size="2" face="Arial"> On Wednesday, December 16, 2015 4:03 PM, Paulo Abreu <abreups@gmail.com> wrote:<br></font></div> <br><br> <div class="y_msg_container"><div id="yiv5235107167"><div>Rafael,<div class="yiv5235107167"><br clear="none" class="yiv5235107167"></div><div class="yiv5235107167">Porque você não tenta primeiro fazer um “pré-processamento” desse arquivo para só depois ler com o R?</div><div class="yiv5235107167">Por exemplo, se você usar o 'grep' com uma expressão regular para isolar somente as linhas com dados, você salva isso num outro arquivo e depois lê esse outro arquivo com o R.</div><div class="yiv5235107167">Salvei esse exemplo de dados que você passou num arquivo chamado teste.txt e executei o seguinte comando:</div><div class="yiv5235107167"><br clear="none" class="yiv5235107167"></div><div class="yiv5235107167"><div class="yiv5235107167" style="margin:0px;font-size:11px;line-height:normal;font-family:Menlo;">grep "^ 198" < teste.txt</div></div><div class="yiv5235107167" style="margin:0px;font-size:11px;line-height:normal;font-family:Menlo;"><br clear="none" class="yiv5235107167"></div><div class="yiv5235107167" style="margin:0px;font-size:11px;line-height:normal;font-family:Menlo;">O resultado são todas as linhas que começam com um espaço em branco e depois têm os caracteres 198</div><div class="yiv5235107167" style="margin:0px;font-size:11px;line-height:normal;font-family:Menlo;"><br clear="none" class="yiv5235107167"></div><div class="yiv5235107167" style="margin:0px;font-size:11px;line-height:normal;font-family:Menlo;">Assim:</div><div class="yiv5235107167" style="margin:0px;font-size:11px;line-height:normal;font-family:Menlo;"><br clear="none" class="yiv5235107167"></div><div class="yiv5235107167" style="margin:0px;font-size:11px;line-height:normal;font-family:Menlo;"><div class="yiv5235107167" style="margin:0px;line-height:normal;"><span class="yiv5235107167" style="text-decoration:underline;color:#afad24;"> 198</span>3 001 1 0.0 13.8</div><div class="yiv5235107167" style="margin:0px;line-height:normal;"><span class="yiv5235107167" style="text-decoration:underline;color:#afad24;"> 198</span>3 002 2 0.0 13.8</div><div class="yiv5235107167" style="margin:0px;line-height:normal;"><span class="yiv5235107167" style="text-decoration:underline;color:#afad24;"> 198</span>3 003 3 0.0 13.7</div><div class="yiv5235107167" style="margin:0px;line-height:normal;"><span class="yiv5235107167" style="text-decoration:underline;color:#afad24;"> 198</span>4 001 1 2.2 13.8</div><div class="yiv5235107167" style="margin:0px;line-height:normal;"><span class="yiv5235107167" style="text-decoration:underline;color:#afad24;"> 198</span>4 002 2 54.8 13.8</div><div class="yiv5235107167" style="margin:0px;line-height:normal;"><span class="yiv5235107167" style="text-decoration:underline;color:#afad24;"> 198</span>4 003 3 4.8 13.7</div><div class="yiv5235107167"><br clear="none" class="yiv5235107167"></div><div class="yiv5235107167">Se você fizer </div></div><div class="yiv5235107167"><br clear="none" class="yiv5235107167"></div><div class="yiv5235107167"><span class="yiv5235107167" style="font-family:Menlo;font-size:11px;">grep "^ 198" < teste.txt > resultado.txt</span></div><div class="yiv5235107167"><span class="yiv5235107167" style="font-family:Menlo;font-size:11px;"><br clear="none" class="yiv5235107167"></span></div><div class="yiv5235107167"><span class="yiv5235107167" style="font-family:Menlo;font-size:11px;">O arquivo resultado.txt vai ter só as linhas de dados.</span></div><div class="yiv5235107167"><span class="yiv5235107167" style="font-family:Menlo;font-size:11px;">Coloca um cabeçalho à mão e aí fica mais fácil de ler com o R.</span></div><div class="yiv5235107167"><span class="yiv5235107167" style="font-family:Menlo;font-size:11px;">Ajuste a expressão regular para ficar mais adequada aos dados que você tem (sei que você passou só um pedaço dos dados).</span></div><div class="yiv5235107167"><span class="yiv5235107167" style="font-family:Menlo;font-size:11px;"><br clear="none" class="yiv5235107167"></span></div><div class="yiv5235107167"><span class="yiv5235107167" style="font-family:Menlo;font-size:11px;">Espero que ajude.</span></div><div class="yiv5235107167"><span class="yiv5235107167" style="font-family:Menlo;font-size:11px;"><br clear="none" class="yiv5235107167"></span></div><div class="yiv5235107167"><span class="yiv5235107167" style="font-family:Menlo;font-size:11px;">Paulo Abreu</span></div><div class="yiv5235107167"><span class="yiv5235107167" style="font-family:Menlo;font-size:11px;"><br clear="none" class="yiv5235107167"></span></div><div class="yiv5235107167"><br clear="none" class="yiv5235107167"><div><blockquote class="yiv5235107167" type="cite"><div class="yiv5235107167">Em 16 de dez de 2015, à(s) 16:14, Rafael Tieppo <<a rel="nofollow" shape="rect" class="yiv5235107167" ymailto="mailto:rafaeltieppo@yahoo.com.br" target="_blank" href="mailto:rafaeltieppo@yahoo.com.br">rafaeltieppo@yahoo.com.br</a>> escreveu:</div><br clear="none" class="yiv5235107167Apple-interchange-newline"><div class="yiv5235107167"><div class="yiv5235107167yqt7569831341" id="yiv5235107167yqt64443"><div class="yiv5235107167"><div class="yiv5235107167" style="background-color:rgb(255, 255, 255);font-family:'Courier New', courier, monaco, monospace, sans-serif;font-size:16px;"><div class="yiv5235107167" id="yiv5235107167yui_3_16_0_1_1450288363525_5579"><span class="yiv5235107167" id="yiv5235107167yui_3_16_0_1_1450288363525_5619">Prezados,</span></div><div class="yiv5235107167" id="yiv5235107167yui_3_16_0_1_1450288363525_5579"><span class="yiv5235107167"><br clear="none" class="yiv5235107167"></span></div><div class="yiv5235107167" id="yiv5235107167yui_3_16_0_1_1450288363525_5579"><span class="yiv5235107167" id="yiv5235107167yui_3_16_0_1_1450288363525_5878">Por favor, Alguém poderia me indicar algum pacote ou algum método para ler várias Tabelas em um único arquivo ".txt", quando há texto no meio do arquivo. Creio que o símbolo "@" permita iniciar a captura dos dados, mas não tenho ideia de como criar uma lógica. Obrigado</span></div><div class="yiv5235107167" id="yiv5235107167yui_3_16_0_1_1450288363525_5579"><span class="yiv5235107167"><br clear="none" class="yiv5235107167"></span></div><div class="yiv5235107167" dir="ltr" id="yiv5235107167yui_3_16_0_1_1450288363525_5579"><span class="yiv5235107167" id="yiv5235107167yui_3_16_0_1_1450288363525_5877">EXEMPLO do ARQUIVO:</span></div><div class="yiv5235107167" id="yiv5235107167yui_3_16_0_1_1450288363525_5579"> <br clear="none" class="yiv5235107167"></div><div class="yiv5235107167" dir="ltr" id="yiv5235107167yui_3_16_0_1_1450288363525_5579">*RUN 1 : POT_S1 <br clear="none" class="yiv5235107167"></div><div class="yiv5235107167" id="yiv5235107167yui_3_16_0_1_1450288363525_5579"> <br clear="none" class="yiv5235107167"></div><div class="yiv5235107167" id="yiv5235107167yui_3_16_0_1_1450288363525_5579">@YEAR DOY DAS PRED DAYLD</div><div class="yiv5235107167" id="yiv5235107167yui_3_16_0_1_1450288363525_5579"> 1983 001 1 0.0 13.8</div><div class="yiv5235107167" id="yiv5235107167yui_3_16_0_1_1450288363525_5579"> 1983 002 2 0.0 13.8</div><div class="yiv5235107167" id="yiv5235107167yui_3_16_0_1_1450288363525_5579"></div><div class="yiv5235107167" dir="ltr" id="yiv5235107167yui_3_16_0_1_1450288363525_5579"> 1983 003 3 0.0 13.7</div><div class="yiv5235107167" dir="ltr" id="yiv5235107167yui_3_16_0_1_1450288363525_5579"> <br clear="none" class="yiv5235107167"></div><div class="yiv5235107167" dir="ltr" id="yiv5235107167yui_3_16_0_1_1450288363525_5579">*RUN 2 : POT_S1 </div><div class="yiv5235107167" dir="ltr" id="yiv5235107167yui_3_16_0_1_1450288363525_5579"> <br clear="none" class="yiv5235107167"></div><div class="yiv5235107167" dir="ltr" id="yiv5235107167yui_3_16_0_1_1450288363525_5579">@YEAR DOY DAS PRED DAYLD</div><div class="yiv5235107167" dir="ltr" id="yiv5235107167yui_3_16_0_1_1450288363525_5579"> 1984 001 1 2.2 13.8</div><div class="yiv5235107167" dir="ltr" id="yiv5235107167yui_3_16_0_1_1450288363525_5579"> 1984 002 2 54.8 13.8</div><div class="yiv5235107167" dir="ltr" id="yiv5235107167yui_3_16_0_1_1450288363525_5579"> 1984 003 3 4.8 13.7</div><div class="yiv5235107167" dir="ltr" id="yiv5235107167yui_3_16_0_1_1450288363525_5579"><br clear="none" class="yiv5235107167"></div><div class="yiv5235107167" dir="ltr" id="yiv5235107167yui_3_16_0_1_1450288363525_5579"><br clear="none" class="yiv5235107167"></div><div class="yiv5235107167" id="yiv5235107167yui_3_16_0_1_1450288363525_5579"><span class="yiv5235107167"><br clear="none" class="yiv5235107167"></span></div><div class="yiv5235107167" id="yiv5235107167yui_3_16_0_1_1450288363525_5579"><span class="yiv5235107167"><br clear="none" class="yiv5235107167"></span></div><div class="yiv5235107167" id="yiv5235107167yui_3_16_0_1_1450288363525_5579"><span class="yiv5235107167"><br clear="none" class="yiv5235107167"></span></div><div class="yiv5235107167" id="yiv5235107167yui_3_16_0_1_1450288363525_5579"><span class="yiv5235107167"><br clear="none" class="yiv5235107167"></span></div><div class="yiv5235107167" id="yiv5235107167yui_3_16_0_1_1450288363525_5579"><span class="yiv5235107167"><br clear="none" class="yiv5235107167"></span></div><div class="yiv5235107167" id="yiv5235107167yui_3_16_0_1_1450288363525_5579"><span class="yiv5235107167"><br clear="none" class="yiv5235107167"></span></div><div class="yiv5235107167" id="yiv5235107167yui_3_16_0_1_1450288363525_5579"><span class="yiv5235107167"><br clear="none" class="yiv5235107167"></span></div><div class="yiv5235107167" id="yiv5235107167yui_3_16_0_1_1450288363525_5579"><span class="yiv5235107167"><br clear="none" class="yiv5235107167"></span></div><div class="yiv5235107167"></div><div class="yiv5235107167"> </div><div class="yiv5235107167signature" id="yiv5235107167yui_3_16_0_1_1450288363525_5525"><div class="yiv5235107167" id="yiv5235107167yui_3_16_0_1_1450288363525_5720"><font class="yiv5235107167" style="font-family:tahoma, 'new york', times, serif;" size="1"><span class="yiv5235107167yui_3_7_2_18_1354538511367_65" style="font-family:verdana, helvetica, sans-serif;font-weight:bold;">Rafael Tieppo</span><br clear="none" class="yiv5235107167" style="font-family:verdana, helvetica, sans-serif;"><span class="yiv5235107167yui_3_7_2_18_1354538511367_67" style="font-family:verdana, helvetica, sans-serif;">State University of Mato Grosso - </span></font><font class="yiv5235107167" style="font-family:tahoma, 'new york', times, serif;" size="1"><span class="yiv5235107167yui_3_7_2_18_1354538511367_67" style="font-family:verdana, helvetica, sans-serif;"><font class="yiv5235107167" style="font-family:tahoma, 'new york', times, serif;" size="1"><span class="yiv5235107167yui_3_7_2_18_1354538511367_67" style="font-family:verdana, helvetica, sans-serif;">Department of </span></font>Agricultural Engineering <br clear="none" class="yiv5235107167"></span><span class="yiv5235107167yui_3_7_2_18_1354538511367_73" style="font-family:verdana, helvetica, sans-serif;"><span class="yiv5235107167" style="font-weight:bold;">site</span>:</span><span class="yiv5235107167yui_3_7_2_18_1354538511367_75" style="font-family:verdana, helvetica, sans-serif;"> <a rel="nofollow" shape="rect" class="yiv5235107167" target="_blank" href="http://www2.unemat.br/rafaeltieppo">http://www2.unemat.br/rafaeltieppo</a> </span><span class="yiv5235107167yui_3_7_2_18_1354538511367_76" style="font-family:verdana, helvetica, sans-serif;"><b class="yiv5235107167">blog</b>: </span></font><a rel="nofollow" shape="rect" class="yiv5235107167" target="_blank" href="https://fuidebicicleta.wordpress.com/" style="font-family:verdana, helvetica, sans-serif;font-size:x-small;">https://fuidebicicleta.wordpress.com</a></div><div class="yiv5235107167" id="yiv5235107167yui_3_16_0_1_1450288363525_5524"><span class="yiv5235107167" id="yiv5235107167yui_3_16_0_1_1450288363525_5523" style="font-family:verdana, helvetica, sans-serif;font-size:x-small;">"Evite o desperdício: antes de imprimir pense na sua responsabilidade com o ambiente". </span></div></div></div></div></div>_______________________________________________<br clear="none" class="yiv5235107167">R-br mailing list<br clear="none" class="yiv5235107167"><a rel="nofollow" shape="rect" class="yiv5235107167" ymailto="mailto:R-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br clear="none" class="yiv5235107167">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br<br clear="none" class="yiv5235107167">Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.</div></blockquote></div><br clear="none" class="yiv5235107167"></div></div></div><br><br></div> </div> </div> </div></div></body></html>