Discussion :

[anaisf66]

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.

[chautho]

Bonjour,

Tu peux essayer de faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[anaisf66]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[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.

[anaisf66]

voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[chautho]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Bon courage !

[anaisf66]

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,

[chautho]

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