[R-br] Automatizar leitura de arquivos e converter nome em colunas

[ASANTOS]

Obrigado Benilton,

       Mas eu gostaria de utilizar separado em colunas apenas COLONIA%X 
e operario_X e não todo o nome do arquivo em uma única coluna, conforme 
a sua solução. Segue um CRM que funcione:

##Criando os arquivos
x1<-rnorm(100)
write.table(x1, 
file='Cupim%20Syntermes_COLONIA%201_operario_1_c1_140616.txt', 
col.names=FALSE, row.names=FALSE, quote=FALSE)
x2<-rnorm(100)
write.table(x2, 
file='Cupim%20Syntermes_COLONIA%201_operario_2_c1_140616.txt', 
col.names=FALSE, row.names=FALSE, quote=FALSE)
x3<-rnorm(100)
write.table(x3, 
file='Cupim%20Syntermes_COLONIA%201_operario_3_c1_140616.txt', 
col.names=FALSE, row.names=FALSE, quote=FALSE)


#Lendo os arquivos criados
fileNames <- c(
"Cupim%20Syntermes_COLONIA%201_operario_1_c1_140616.txt",
"Cupim%20Syntermes_COLONIA%201_operario_2_c1_140616.txt",
"Cupim%20Syntermes_COLONIA%201_operario_3_c1_140616.txt")

#criando arquivo único com nomes dos arquivos e transpondo conteúdo
x = do.call(cbind, lapply(fileNames, read.table, header=TRUE))
names(x) = fileNames
write.table(t(x), file='saida.mod', col.names=FALSE, row.names=TRUE, 
quote=FALSE)






Em 08/07/2014 14:01, Benilton Carvalho escreveu:
> #-------------------------------------------------------------------------------
> ### Download a partir de uma lista de links com os arquivos
> #-------------------------------------------------------------------------------
> #
> ### Obtenção de links
> links <- c(
> "https://www.dropbox.com/s/l5ofrqw01tnfmmv/Cupim%20Syntermes_COLONIA%201_operario_1_c1_140616.dpt", 
>
> "https://www.dropbox.com/s/tkxkov16z813oc6/Cupim%20Syntermes_COLONIA%201_operario_2_c1_140616.dpt", 
>
> "https://www.dropbox.com/s/hjcmw9qutwwolo0/Cupim%20Syntermes_COLONIA%201_operario_3_c1_140616.dpt")
>
> tokens    <- gsub("^.*/s/","",dirname(links))
> fileNames <- basename(links)
> newLinks  <- file.path("http://dl.dropbox.com/s", tokens, fileNames); 
> newLinks
>
> for (a in newLinks) {
>           tryCatch(download.file(a, dest=basename(a), mode='wb'),
>                               error=function(...) print("Falha no 
> download!"))}
>
> ### Verificando arquivos baixados corretamente
> ##############################################################################
> fileInfo  <- file.info <http://file.info>(fileNames); fileInfo ### 
> observe o segundo arquivo
> files.OK  <- fileNames[fileInfo$size>0 & !is.na 
> <http://is.na>(fileInfo$size)]; files.OK
>
> ### Operando 

-- 
======================================================================
Alexandre dos Santos
Proteção Florestal
IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso
Campus Cáceres
Caixa Postal 244
Avenida dos Ramires, s/n
Bairro: Distrito Industrial
Cáceres - MT                      CEP: 78.200-000
Fone: (+55) 65 8132-8112 (TIM)   (+55) 65 9686-6970 (VIVO)
e-mails:alexandresantosbr em yahoo.com.br
         alexandre.santos em cas.ifmt.edu.br
Lattes: http://lattes.cnpq.br/1360403201088680
======================================================================

-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20140708/4c4e2d22/attachment.html>