Melhorias no Comando

Galera, estou tentando criar comandos que por eles, automaticamente abram pastas dentro de pastas para ir diretamente no arquivo (no caso txt), por exemplo, vou abrindo as seguintes pastas: Victor/teste/201005/20100520/2010052000.txt, sendo que 2010 é o ano, 05 o mes, 20 o dia e 00 a rodada (as rodadas vao de 00 até 23), no caso, esse é um exemplo, tenho que fazer para os demais meses, dias e rodadas. Queria saber uma estratégia de comando melhor, porque o que estou tentando montar não ficou muito legal, ficou assim: mes<-sprintf('%02d',seq(1,12))# sequencia de dois digitos de 1 ate 12 pasta<-paste(2010,mes,sep='') dia<-sprintf('%02d',seq(1,31)) # sequencia de 1 até 31 com dois dígitos dat.dir<-paste(dat.dir,pasta,'/',pasta,dia,'/',sep='') hh <-sprintf('%02d',seq(0,23)) # Cria uma sequência com 2 dígitos de 1 até 23 horario<-format(Sys.time(),'%Y%m') # formato ano/mes atual horario1<-format(Sys.time(),'%Y%m%d') #formato ano/mes/dia atual pa<-paste('2011',mes,sep='') #diretorio parcial pa1<-paste(dat.dir,pasta,'/',pasta,dia,'/',sep='') # diretorio completo do arquivo for(i in dia){ for(j in mes){ for(k in hh){ message(paste('C:/Users/max/Desktop/Victor/teste/',2010,j,'/',2010,j,i,'/',2010,j,i,k,sep='')) if(!file.exists(paste('C:/Users/max/Desktop/Victor/teste/',2010,j,'/',2010,j,i,'/',2010,j,i,k,sep=''))) next arquivo<-read.table(paste('C:/Users/max/Desktop/Victor/teste/',2010,j,'/',2010,j,i,'/',2010,j,i,k,sep='')) message('OK') } } } Abraços!

Tente assim: dir('C:/Users/max/Desktop/Victor/teste/', recursive = TRUE, pattern = 'txt$', full.names = TRUE) 2011/3/30 Victor Eduardo <victorduca08@gmail.com>:
Galera, estou tentando criar comandos que por eles, automaticamente abram pastas dentro de pastas para ir diretamente no arquivo (no caso txt), por exemplo, vou abrindo as seguintes pastas: Victor/teste/201005/20100520/2010052000.txt, sendo que 2010 é o ano, 05 o mes, 20 o dia e 00 a rodada (as rodadas vao de 00 até 23), no caso, esse é um exemplo, tenho que fazer para os demais meses, dias e rodadas. Queria saber uma estratégia de comando melhor, porque o que estou tentando montar não ficou muito legal, ficou assim:
mes<-sprintf('%02d',seq(1,12))# sequencia de dois digitos de 1 ate 12 pasta<-paste(2010,mes,sep='') dia<-sprintf('%02d',seq(1,31)) # sequencia de 1 até 31 com dois dígitos dat.dir<-paste(dat.dir,pasta,'/',pasta,dia,'/',sep='')
hh <-sprintf('%02d',seq(0,23)) # Cria uma sequência com 2 dígitos de 1 até 23 horario<-format(Sys.time(),'%Y%m') # formato ano/mes atual horario1<-format(Sys.time(),'%Y%m%d') #formato ano/mes/dia atual
pa<-paste('2011',mes,sep='') #diretorio parcial
pa1<-paste(dat.dir,pasta,'/',pasta,dia,'/',sep='') # diretorio completo do arquivo
for(i in dia){
for(j in mes){
for(k in hh){
message(paste('C:/Users/max/Desktop/Victor/teste/',2010,j,'/',2010,j,i,'/',2010,j,i,k,sep='')) if(!file.exists(paste('C:/Users/max/Desktop/Victor/teste/',2010,j,'/',2010,j,i,'/',2010,j,i,k,sep=''))) next arquivo<-read.table(paste('C:/Users/max/Desktop/Victor/teste/',2010,j,'/',2010,j,i,'/',2010,j,i,k,sep='')) message('OK') } } }
Abraços!
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
-- Henrique Dallazuanna Curitiba-Paraná-Brasil 25° 25' 40" S 49° 16' 22" O
participantes (3)
-
Benilton Carvalho
-
Henrique Dallazuanna
-
Victor Eduardo