[R-br] Empilhar arquivos de um diretório em arquivo único

Yury Duarte yurynepomuceno em gmail.com
Segunda Fevereiro 26 15:22:11 -03 2018


Boa tarde colegas listeiros, como vão?

Estou buscando unir diversos arquivos .txt de determinados diretórios num
arquivo único.
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.
Entretanto, em algum ponto, o comando não funciona de modo correto e o
arquivo final gerado nunca bate com o desejado.

Segue o código: (*em anexo, seguem os arquivos de um dos diretórios para
teste*)

rm(list = ls())

raiz = "C:\\Users\\Yury\\Desktop\\"
x = "NASA"

setwd(paste0(raiz, x))

  #--------------------Juntar Arquivos num Unico .txt--------------------#
  for(i in 1:length(dir(paste0(raiz, x)))){

    A1 = read.table(dir(paste0(raiz, x))[i], header = T, sep = "\t");
head(A1)
    if(i == 1){
      write.table(A1, paste0(raiz, x, '\\', x,'.txt'), sep = "\t", append =
T, col.names = T, row.names = F)
    }
    else{
      write.table(A1, paste0(raiz, x, '\\', x,'.txt'), sep = "\t", append =
T, col.names = F, row.names = F)
    }
    print (paste0(i, ' ok'))
}

Desde já, agradeço pela ajuda!

Yury Duarte
Engenheiro Agrônomo - ESALQ/USP
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20180226/3f16fc20/attachment.html>
-------------- Próxima Parte ----------
Um anexo não-texto foi limpo...
Nome: NASA.rar
Tipo: application/rar
Tamanho: 73173 bytes
Descrição: não disponível
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20180226/3f16fc20/attachment.rar>


Mais detalhes sobre a lista de discussão R-br