Bonjour,
Je travaille actuellement sur différents petits projets en R, en ayant très peu de bases en R.
Je cherche à extraire chaque fin de mois d'un dossier connu des fichiers inconnus identifiables par le début du nom et par leur extension qui change chaque mois. Je dois extraire chaque mois les six derniers fichiers (en partant de l'avant dernier mois et en remontant à 6 fichiers) de manière automatique.
Voici le script que j'ai commencé :
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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
sysdate =(as.numeric(format(Sys.Date(), "%m" ))-1) # on prend l'avant dernier mois (pas le mois courant)
sysdate #afficher le sysdate-1
#regler les problemes de valeur négative de i
i=(sysdate-6) 
if (i<0)
{
  i=12+i
}
i
sysdate
#début de la boucle while gestion des cas superieurs inferieurs par rapport a sysdate-1
while (i!=sysdate){
 
  if (i<sysdate)
  {
    i<-i+1
  }
  if (i>sysdate)
  {
    i<-i-1
  }
  i
 
  #les mois à 31, 30, 28 et 29 jours
  recdate<- paste0((as.character(format(Sys.Date(), "%Y" ))))
  recdate2<- paste0((if (i<10){print("0")}  else {print ("1")}))
 
  if ((i == "1")||(i == "3")||(i == "5")||(i == "7")||( i== 8)||(i== 10)||(i == 12))
 
    {
    fichiers<- paste0("MCR.LOAN.REP.",recdate,recdate2,i,"31.csv")
    }
  else	
    { 
      if (i == 04)||(i== 06)||i == 09))
  {
    fichiers<- paste0("MCR.LOAN.REP.",recdate,recdate2,i,"30.csv")
  }
  else
    { 
      if ((as.numeric(format(Sys.Date()-i, "%m")) == 02))
        {
            if ((as.numeric(format(Sys.Date()-i, "%m%d"))== 0228 
        {
      fichiers<- paste0("MCR.LOAN.REP.",(as.numeric(format(Sys.Date()-i*10, "%Y%m" ))),"28.csv")
    }
    }
    }
  else
{ 			if ((as.numeric(format(Sys.Date(), "%m")) == 02))
{	
  if ((as.numeric(format(Sys.Date(), "%m%d"))== 0229 
{
  fichiers<- paste0("MCR.LOAN.REP.",(as.numeric(format(Sys.Date()-i*10, "%Y%m" ))),"29.csv")
}
 
 
 
}
J'ai de gros soucis à exprimer le nom de fichier que je veux extraire, et pas du tout d'idées pour le mois de février.