Bonjour,
je débute dans ce langage et je bloque sur le script suivant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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.
me renvoie bien
Code : Sélectionner tout - Visualiser dans une fenêtre à part seq(as.Date("2013-01-07"), as.Date("2013-01-20"),"day")
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.
Partager