j'ai un script dont la tache est de copier des dossiers contenant des fichiers.txt dan un autre dossier. Le problème est que les fichiers.txt sont vides à l'arrivée, que R renvoit TRUE ou FALSE.
En plus d'être inefficace, cette manoeuvre est lourde car je dois créer l'arborescence étape par étape, au lieu de juste préciser la destination
Code : Tout sélectionner
# création du fichier de destination, dont le nom est la date du jour:
dir.create(paste("C:/butsty/Template/Original data sets",
"/RECORD",
"/",
Sys.Date(),
"/",
sep=""))
setwd("C:/butsty/Template/Original data sets")
#création d'un vecteur contenant les noms de dossiers
doc<-list.files(getwd())
doc<-doc[!doc=="RECORD"]
#couper/coller
apply(data.frame(doc),1,RECORD)
#la fonction "RECORD" est chargée de copier puis d'effacer
RECORD<-function(x) {
# Création du dossier de destination
dir.create(paste("C:/butsty/Template/Original data sets",
"/RECORD",
"/",
Sys.Date(),
"/",
x,
sep=""))
# transfert des fichiers contenus dans le dossier
file.copy(list.files(x),(paste("C:/butsty/Template/Original data sets",
"/RECORD",
"/",
Sys.Date(),
"/",
x,
sep="")))
#ménage
file.remove(x)
}
donc si l'on peu m'expliquer pourquoi mes fichiers sont vides et s'il existe une méthode pour ne pas avoir à construire l'arborescence dans le cas présent, je suis preneur!
Merci d'avance!
Yannick