Utilisation de la fonction "strftime" dans une boucle.
Bonjour,
je débute dans ce langage et je bloque sur le script suivant :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
| # Extraction des BGD a partir des archives
# Sequence de date
seq(as.Date("2013-01-07"), as.Date("2013-01-20"),"day")
# Dossier des archives
dirin <- c("//172.16.13.218/dp/URBANAIR_V2/output_archive")
dirout <- c("C:/tmp")
# Maille à extraire
XX <- 75
YY <- 28
# Ligne de debut et de fin (positions des lignes correspondant à l'échéance (39-62 pour J-0))
start<-39
end <- 62
# Programme
out_J0<-vector()
for (i in 1:length(date))
{
jour <- date [i]
name_fichier_BGD_jour <- paste(dirin,"/", jour,"/",jour,"/CHM_AIRES_",jour,"_",XX,"_",YY,".BGD",sep="")
fichier_BGD <- scan(name_fichier_BGD_jour,what="numeric")
seq_J0 <-fichier_BGD[start:end ]
out_J0 <-c(out_J0,seq_J0)
}
write(out_J0,file=paste(dirout,"/CHM_AIRES_J0_",XX,"_",YY,sep="")) |
Le but de ce script est d'aller lire une série de fichiers selon une période donnée, de récupérer une partie de ce fichier (lignes 39 à 62) et de les copier dans un nouveau fichier.
Je créé dont une séquence de date, qui correspond à cette période.
Code:
seq(as.Date("2013-01-07"), as.Date("2013-01-20"),"day")
me renvoie bien
Code:
1
2
| [1] "2013-01-07" "2013-01-08" "2013-01-09" "2013-01-10" "2013-01-11" "2013-01-12" "2013-01-13"
[8] "2013-01-14" "2013-01-15" "2013-01-16" "2013-01-17" "2013-01-18" "2013-01-19" "2013-01-20" |
Mais c'est la boucle de lecture qui ne fonctionne pas:
-Ma séquence à le format date YYYY-MM-DD alors que mes fichiers ont le format YYYYMMDD.
-J'essaye d'intégrer la fonction "strftime(d, "%Y%m%d")" mais je n'arrive pas à la placer correctement.
Code:
1
2
3
| for (i in 1:length(date))
{
jour <- date [i] as strftime(d, "%Y%m%d") |
Un peu d’aide serait la bienvenue.
Merci beaucoup.
