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=""))
} |
Partager