Discussion :

[jerome_atmo]

Bonjour,
Je cherche à déplacer un fichier récupéré sur un ftp, dans un autre dossier qui se nomme à la date du jour. Peut-être peut on même directement télécharger le fichier dans le bon dossier mais je n'ai pas réussi non plus.
J'ai essayé sans succès file.copy (y a-t-il une commande pour simplement déplacer un fichier ?), mais je dois mal l'utiliser. Ci-dessous mon script :

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
library(RCurl)
setwd("...")
 
date=format(Sys.Date(),'%Y%m%d')
dir.create(date)
 
FICHIER=paste("O3_AS_AFMH_",date,"_PMAP_D+0_R21.gif",sep="")
URL=paste("http://www...",FICHIER,sep="")
fichier <- getBinaryURL(URL,userpwd = "...", verbose = TRUE) 
writeBin(fichier, FICHIER)
file.rename(FICHIER,"AujourdHui_O3.gif")
file.copy(FICHIER,date)
 
[1] FALSE
Warning message:
In file.copy(FICHIER, date) :
  problem copying .\O3_AS_AFMH_20140721_PMAP_D+0_R21.gif to 20140721\O3_AS_AFMH_20140721_PMAP_D+0_R21.gif: No such file or directory

Merci beaucoup à celles/ceux qui prendront de leur temps pour m'aider.
Bonne journée
Jérôme

[jerome_atmo]

Finalement, j'ai trouvé une solution :

L'idée est de créer un chemin d'accès intégrant la date du jour par concaténation :

Code :

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

chemin=paste("C:/...",date,"/Aujourdhui_O3.gif",sep="")

puis tout simplement d'utiliser file.copy :

Code :

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

file.copy("test.gif",chemin)

Bonne journée
Jérôme