[R-br] Melhorias no Comando

[Victor Eduardo]

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!
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20110330/cb457d08/attachment.html>