Importation et execution mensuelle de fichiers dans R

Version imprimable

02/04/2015, 14h57
anaisf66

Importation et execution mensuelle de fichiers dans R

Bonjour,

Je suis débutante en R et en programmation, je souhaite automatiser un script R dont le nom change chaque mois.

Ex : data <- fread("C:/Users/Documents/ "mon fichier"(Sys.time(), "%Y%m%d")".csv", header = T, sep = ";", na.strings = "")(ceci est bien entendu archi faux)

Sachant que le nom de fichier est composé de l'année, du mois et du jour (ex: 20150402).

Dans un premier temps j'aimerais donc inclure automatiquement le nom dans le script R, et dans un second temps j'aimerais savoir comment exécuter ce script avec le gestionnaire des taches sur windows.
02/04/2015, 15h18
chautho
Bonjour,

Tu peux essayer de faire :
Code:

1 2 nom_du_fichier <- paste0("C:/Users/Documents/","mon fichier",as.character(format(Sys.time(), "%Y%m%d")),".csv") data <- fread(nom_du_fichier, header = T, sep = ";", na.strings = "")
Pour ce qui est de l'exécution, je comprends que tu veux le faire en batch, je te propose ce lien :
http://www.statmethods.net/interface/batch.html

Bon courage :)

Code:

1
2
3
4
5
6
7
8
'monfichier20150402.csv' n'est pas reconnu en tant que commande interne
ou externe, un programme executable ou un fichier de commandes.
Erreur dans fread(nom_du_fichier, header = T, sep = ";", na.strings = "",  : 
  File is empty: C:\Users\Documents
De plus : Messages d'avis :
1: l'exécution de la commande 'C:\windows\system32\cmd.exe /c (monfichier20150402.csv) > C:\Users\Documents' renvoie un statut 1 
2: In shell(paste("(", input, ") > ", tt, sep = "")) :
  '(monfichier20150402.csv) > C:\Users\Documents' execution failed with error code 1

Merci pour votre réponse,
J'ai eu ce code d'erreur par la suite.

03/04/2015, 15h54
A. D.

Bonjour,

Merci de poster le code utilisé vous renvoyant l'erreur mentionnée afin que nous puissions vous aider au mieux.

Cordialement,

A.D.

code et erreur

voici le code:

Code:

1
2
3
4
5
6
 
setwd <- "C:/Users/moi/Desktop"
 
nom_du_fichier <- paste0("monfichier_",as.character(format(Sys.time(), "%Y%m%d")),".csv")
mcsnloans_month <- fread(nom_du_fichier, header = T, sep = ";", na.strings = "", stringsAsFactors = F, 
                 select = slist, integer64 = "numeric")

et voici l'erreur:

Code:

1
2
3
4
5
6
7
8
'monfichier_20150407.csv' n'est pas reconnu en tant que commande interne
ou externe, un programme executable ou un fichier de commandes.
Erreur dans fread(nom_du_fichier, header = T, sep = ";", na.strings = "",  : 
  File is empty: C:\Users\moi\AppData\Local\Temp\RtmpmWVOxk\file1458b01221f
De plus : Messages d'avis :
1: l'exécution de la commande 'C:\windows\system32\cmd.exe /c (monfichier_20150407.csv) > C:\Users\moi\AppData\Local\Temp\RtmpmWVOxk\file1458b01221f' renvoie un statut 1 
2: In shell(paste("(", input, ") > ", tt, sep = "")) :
  '(monfichier_20150407.csv) > C:\Users\moi\AppData\Local\Temp\RtmpmWVOxk\file1458b01221f' execution failed with error code 1

07/04/2015, 11h45
chautho

Bonjour,

Il me semble que tu dois spécifier la fonction setwd() comme ceci :

Code:

setwd("C:/Users/moi/Desktop")

Et ensuite la fonction fread() trouvera le bon fichier dans le bon dossier !

Bon courage !
07/04/2015, 12h02
anaisf66

même erreur

j'ai toujours la même erreur,
Vous n'auriez pas une idée ou je trouverais des tutoriels pour l'automatisation des traitements de données en R (données qui sont issues de différents types de sources: BDR, fichiers, NoSQL...), je ne trouve vraiment pas d'exemples sur internet. et quand j'en trouve c'est partiel... Je souhaite extraire des données, les traiter et les remettre dans une base.
Merci beaucoup pour votre aide,
07/04/2015, 20h36
chautho

Ce site http://www.statmethods.net/input/index.html en anglais te sera fort utile je pense !