<div dir="ltr">OK, Yuri.<div><br></div><div>A advertência é <i>benigna</i> ela está informando que não faz sentido ao mesmo tempo</div><div>

<span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:12.8px;font-style:normal;font-variant-ligatures:normal;font-variant-caps:normal;font-weight:400;letter-spacing:normal;text-align:start;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;background-color:rgb(255,255,255);text-decoration-style:initial;text-decoration-color:initial;float:none;display:inline">> write.table(A1, paste0(raiz, x, '\\', x,'.txt'), sep = "\t", </span><span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:12.8px;font-style:normal;font-variant-ligatures:normal;font-variant-caps:normal;letter-spacing:normal;text-align:start;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;background-color:rgb(255,255,255);text-decoration-style:initial;text-decoration-color:initial;float:none;display:inline"><b>append = T</b></span><span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:12.8px;font-style:normal;font-variant-ligatures:normal;font-variant-caps:normal;font-weight:400;letter-spacing:normal;text-align:start;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;background-color:rgb(255,255,255);text-decoration-style:initial;text-decoration-color:initial;float:none;display:inline">, </span><span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:12.8px;font-style:normal;font-variant-ligatures:normal;font-variant-caps:normal;letter-spacing:normal;text-align:start;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;background-color:rgb(255,255,255);text-decoration-style:initial;text-decoration-color:initial;float:none;display:inline"><b>col.names =</b></span><span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:12.8px;font-style:normal;font-variant-ligatures:normal;font-variant-caps:normal;font-weight:400;letter-spacing:normal;text-align:start;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;background-color:rgb(255,255,255);text-decoration-style:initial;text-decoration-color:initial;float:none;display:inline"> T, row.names = F)</span>

<br></div><div>ou seja:</div><div>adicionar linhas e ter nomes de colunas, lembre-se que <u>o código não sabe que essa é a primeira escrita</u>!</div><div><br></div><div>Para mim, mais sintomático é que o nº índice da última iteração do <u><i>loop</i></u> é 11 em vez do dez esperado para dez arquivos no RAR que você anexou.</div><div><br></div><div>Para provar que sabemos como remediar, você pode tentar:</div><div><br></div><div>1) no 

<span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:12.8px;font-style:normal;font-variant-ligatures:normal;font-variant-caps:normal;font-weight:400;letter-spacing:normal;text-align:start;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;background-color:rgb(255,255,255);text-decoration-style:initial;text-decoration-color:initial;float:none;display:inline"><span> </span>if(i == 1){ colocar append = F na chamada a write.table; e</span></div><div><span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:12.8px;font-style:normal;font-variant-ligatures:normal;font-variant-caps:normal;font-weight:400;letter-spacing:normal;text-align:start;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;background-color:rgb(255,255,255);text-decoration-style:initial;text-decoration-color:initial;float:none;display:inline"><br></span></div><div><span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:12.8px;font-style:normal;font-variant-ligatures:normal;font-variant-caps:normal;font-weight:400;letter-spacing:normal;text-align:start;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;background-color:rgb(255,255,255);text-decoration-style:initial;text-decoration-color:initial;float:none;display:inline">2) nas duas chamadas a write.table, mudar a extensão do arquivo pra algo diferente (por exemplo tsv) e rodar o script.</span></div><div><span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:12.8px;font-style:normal;font-variant-ligatures:normal;font-variant-caps:normal;font-weight:400;letter-spacing:normal;text-align:start;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;background-color:rgb(255,255,255);text-decoration-style:initial;text-decoration-color:initial;float:none;display:inline"><br></span></div><div><span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:12.8px;font-style:normal;font-variant-ligatures:normal;font-variant-caps:normal;font-weight:400;letter-spacing:normal;text-align:start;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;background-color:rgb(255,255,255);text-decoration-style:initial;text-decoration-color:initial;float:none;display:inline">HTH (de novo pensado sem testes...)</span></div><div><span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:12.8px;font-style:normal;font-variant-ligatures:normal;font-variant-caps:normal;font-weight:400;letter-spacing:normal;text-align:start;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;background-color:rgb(255,255,255);text-decoration-style:initial;text-decoration-color:initial;float:none;display:inline"><br></span></div><div><span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:12.8px;font-style:normal;font-variant-ligatures:normal;font-variant-caps:normal;font-weight:400;letter-spacing:normal;text-align:start;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;background-color:rgb(255,255,255);text-decoration-style:initial;text-decoration-color:initial;float:none;display:inline">--</span></div><div><span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:12.8px;font-style:normal;font-variant-ligatures:normal;font-variant-caps:normal;font-weight:400;letter-spacing:normal;text-align:start;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;background-color:rgb(255,255,255);text-decoration-style:initial;text-decoration-color:initial;float:none;display:inline">Cesar Rabak</span></div><div><span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:12.8px;font-style:normal;font-variant-ligatures:normal;font-variant-caps:normal;font-weight:400;letter-spacing:normal;text-align:start;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;background-color:rgb(255,255,255);text-decoration-style:initial;text-decoration-color:initial;float:none;display:inline"><br></span></div><div><span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:12.8px;font-style:normal;font-variant-ligatures:normal;font-variant-caps:normal;font-weight:400;letter-spacing:normal;text-align:start;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;background-color:rgb(255,255,255);text-decoration-style:initial;text-decoration-color:initial;float:none;display:inline"><br></span></div></div><div class="gmail_extra"><br><div class="gmail_quote">2018-02-26 16:31 GMT-03:00 Yury Duarte <span dir="ltr"><<a href="mailto:yurynepomuceno@gmail.com" target="_blank">yurynepomuceno@gmail.com</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Boa tarde Luis e Cesar.<div><br></div><div>Antes de mais nada, obrigado por apresentar essa nova abordagem, Luis. O resultado desse código foi exatamente o que eu esperava obter com o que apresentei no corpo do email.<br><br></div><div>Cesar, as saidas que obtive ao rodar o comando print foram:</div><div><br></div><div><div>[1] "1 - ok!"</div><div>[1] "2 - ok!"</div><div>[1] "3 - ok!"</div><div>[1] "4 - ok!"</div><div>[1] "5 - ok!"</div><div>[1] "6 - ok!"</div><div>[1] "7 - ok!"</div><div>[1] "8 - ok!"</div><div>[1] "9 - ok!"</div><div>[1] "10 - ok!"</div><div>[1] "11 - ok!"</div><div>Warning messages:</div><div>1: In write.table(A1, paste0(raiz, x, "\\", x, ".txt"), sep = "\t",  :</div><div>  appending column names to file</div></div><div><br></div><div>Não soube como interpretar essa advertência, se puder me ajudar a entender o erro nesse código, seria de grande ajuda.</div><div><br></div><div>Mais uma vez, agradeço pela colaboração de todos!</div><div><br></div><div>Att</div></div><div class="gmail_extra"><span class=""><br clear="all"><div><div class="m_1487719529067497712gmail_signature" data-smartmail="gmail_signature"><div dir="ltr"><div>Yury Duarte<br></div>Engenheiro Agrônomo - ESALQ/USP<br></div></div></div>
<br></span><div><div class="h5"><div class="gmail_quote">Em 26 de fevereiro de 2018 16:24, Cesar Rabak <span dir="ltr"><<a href="mailto:cesar.rabak@gmail.com" target="_blank">cesar.rabak@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Yury,<div><br></div><div>Como a resposta do Luis é uma solução diferente, apenas comento o seguinte:</div><div><br></div><div><i>caveat emptor</i> raciocínio em cima do código sem testar. A linha de código:</div><span><div><br></div><div>

<b><span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:12.8px;font-style:normal;font-variant-ligatures:normal;font-variant-caps:normal;letter-spacing:normal;text-align:start;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;background-color:rgb(255,255,255);text-decoration-style:initial;text-decoration-color:initial;float:none;display:inline">  for(i in 1:length(dir(paste0(raiz, x)))){</span>

</b><br></div><div><br></div></span><div>Ao ler o diretório n vezes, na segunda passada passará a ver um arquivo adicional "NASA.txt", certo? e você não vai querer que ele seja incluso no meio de "londrina.txt" e "pelotas.txt", não é?</div><div><br></div><div>Quais mensagens e qual resultados das impressões "

<span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:12.8px;font-style:normal;font-variant-ligatures:normal;font-variant-caps:normal;font-weight:400;letter-spacing:normal;text-align:start;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;background-color:rgb(255,255,255);text-decoration-style:initial;text-decoration-color:initial;float:none;display:inline">print (paste0(i, ' ok'))" você obteve?</span></div><div><span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:12.8px;font-style:normal;font-variant-ligatures:normal;font-variant-caps:normal;font-weight:400;letter-spacing:normal;text-align:start;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;background-color:rgb(255,255,255);text-decoration-style:initial;text-decoration-color:initial;float:none;display:inline"><br></span></div></div><div class="gmail_extra"><br><div class="gmail_quote"><div><div class="m_1487719529067497712h5">2018-02-26 15:22 GMT-03:00 Yury Duarte via R-br <span dir="ltr"><<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>></span>:<br></div></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div class="m_1487719529067497712h5"><div dir="ltr">Boa tarde colegas listeiros, como vão?<div><br></div><div>Estou buscando unir diversos arquivos .txt de determinados diretórios num arquivo único.</div><div>Todos os diretórios tem o mesmo número de arquivos (10) e cada um deles tem o mesmo numero de linhas e de colunas (36 x 23), de forma que o arquivo final gerado deveria ser um objeto de dimensão 360 x 23.</div><div>Entretanto, em algum ponto, o comando não funciona de modo correto e o arquivo final gerado nunca bate com o desejado.</div><div><br></div><div>Segue o código: (<b>em anexo, seguem os arquivos de um dos diretórios para teste</b>)</div><div><br></div><div><div>rm(list = ls())</div><div><br></div><div>raiz = "C:\\Users\\Yury\\Desktop\\"</div><div>x = "NASA"<br></div><div><br></div><div>setwd(paste0(raiz, x))<br></div><div>  </div><div>  #--------------------Juntar Arquivos num Unico .txt--------------------#</div><div>  for(i in 1:length(dir(paste0(raiz, x)))){</div><div>    </div><div>    A1 = read.table(dir(paste0(raiz, x))[i], header = T, sep = "\t"); head(A1) </div><div>    if(i == 1){</div><div>      write.table(A1, paste0(raiz, x, '\\', x,'.txt'), sep = "\t", append = T, col.names = T, row.names = F)</div><div>    }</div><div>    else{</div><div>      write.table(A1, paste0(raiz, x, '\\', x,'.txt'), sep = "\t", append = T, col.names = F, row.names = F)</div><div>    }</div><div>    print (paste0(i, ' ok'))</div><div>}</div><div><br></div></div><div>Desde já, agradeço pela ajuda!</div><div><br></div><div><div><div class="m_1487719529067497712m_-3766225096636077663m_5336832941156847530gmail_signature"><div dir="ltr"><div>Yury Duarte<br></div>Engenheiro Agrônomo - ESALQ/USP<br></div></div></div>
</div></div>
<br></div></div><span>______________________________<wbr>_________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" target="_blank">https://listas.inf.ufpr.br/cgi<wbr>-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-g<wbr>uia</a>) e forneça código mínimo reproduzível.<br></span></blockquote></div><br></div>
</blockquote></div><br></div></div></div>
</blockquote></div><br></div>