[R-br] Melhorias no Comando

[Henrique Dallazuanna]

Tente assim:

dir('C:/Users/max/Desktop/Victor/teste/', recursive = TRUE, pattern =
'txt$', full.names = TRUE)

2011/3/30 Victor Eduardo <victorduca08 em 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 em 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