Bonjour,
Je recherche à créer une commande R qui ouvrira différents fichiers de type csv ou text en fonction du mois.
Sachant que dans le dossier d'origine tous les fichiers de l'année sont présents et que cette opération ne doit tenir compte que du mois actuel. Les mois variants entre 28, 29, 30 et 31 jours...
Si je débute avec un "if" suivi d'un "for" est-ce possible? ou suis-je complètement éloignée de la méthodologie?
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
 dossier <- setwd("C:/Users/moi/Desktop/R
 
library(date)
#les mois à 31 jours
if ((as.character(format(Sys.Date(), "%m")) == 01)|(as.character(format(Sys.Date(), "%m")) == 03)|(as.character(format(Sys.Date(), "%m")) == 05)|(as.character(format(Sys.Date(), "%m")) == 07)|(as.character(format(Sys.Date(), "%m")) == 08)|(as.character(format(Sys.Date(), "%m")) == 10)|(as.character(format(Sys.Date(), "%m")) == 12))
{for (i in 1:31) {
fichiers<- paste("fic",1:30,".csv",sep=""))
}
#les mois à 30 jours
else{ if ((as.character(format(Sys.Date(), "%m")) == 04)|(as.character(format(Sys.Date(), "%m")) == 06)|(as.character(format(Sys.Date(), "%m")) == 09))
{for (i in 1:30) {
fichiers<- paste("fic",1:30,".csv",sep=""))
}
#les Fevrier à 28 jours
else{ if ((as.character(format(Sys.Date(), "%m")) == 02))
{if ((as.character(format(Sys.Date(), "%m%d"))== 0228 {
fichiers<- paste("fic",1:28,".csv",sep=""))
}
les Fevrier à 29 jours
else{ if ((as.character(format(Sys.Date(), "%m")) == 02))
{if ((as.character(format(Sys.Date(), "%m%d"))== 0229 {
fichiers<- paste("fic",1:29,".csv",sep=""))
 
}
Merci par avance,