<div dir="ltr"><div style="color:rgb(33,33,33)">Olá Yury,</div><div style="color:rgb(33,33,33)"><br></div><div style="color:rgb(33,33,33)">Se na pasta NASA estiver somente os arquivos que você deseja combinar, você pode tentar fazer o seguinte:</div><div style="color:rgb(33,33,33)"><br></div><div style="color:rgb(33,33,33)">raiz = "C:\\Users\\Yury\\Desktop\\"</div><div style="color:rgb(33,33,33)">x = "NASA"<br></div><div style="color:rgb(33,33,33)">setwd(paste0(raiz, x))<br></div><div style="color:rgb(33,33,33)"><br></div><div style="color:rgb(33,33,33)">txt_files <- list.files(full.names = T, recursive = T, pattern = "\\.txt$") </div><div style="color:rgb(33,33,33)">list_read <- lapply(txt_files, read.table, header = T, sep = "\t")</div><div style="color:rgb(33,33,33)">df_read <- do.call(rbind, list_read)</div><div style="color:rgb(33,33,33)">write.table(df_read, 'dados_completo.txt', sep = "\t", append = T, col.names = F, row.names = F)<br></div><div style="color:rgb(33,33,33)"><br class="inbox-inbox-Apple-interchange-newline"></div><div style="color:rgb(33,33,33)">Abraço</div><div style="color:rgb(33,33,33)"><br></div></div><br><div class="gmail_quote"><div dir="ltr">On Mon, Feb 26, 2018 at 3:22 PM Yury Duarte via R-br <<a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><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_-97280183520335997gmail_signature"><div dir="ltr"><div>Yury Duarte<br></div>Engenheiro Agrônomo - ESALQ/USP<br></div></div></div>
</div></div>
_______________________________________________<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-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-guia</a>) e forneça código mínimo reproduzível.</blockquote></div>-- <br><div dir="ltr" class="gmail_signature" data-smartmail="gmail_signature"><div dir="ltr"><p dir="ltr">Luís G. Silva e Silva</p>
</div></div>