Obtenir le nom du dossier du script (lancé en cliquant dessus).

Bonjour,

J'ai réalisé un script, qui, en gros, récupère des infos dans des fichiers csv et génère des figures (pas de problèmes de ce côté là).
Ce script est destiné à des personnes qui ne connaissent pas R (ni la programmation). Je cherche à faire en sorte qu'ils n'aient qu'à double-cliquer sur le fichier de script.
En faisant ainsi le répertoire de travail est la racine de mon disque C:/ et non le dossier contenant le script (comme ça se ferait avec la plupart des autres langages). Mon souci c'est que j'ai pas réussi à trouver la fonction pour connaitre le nom du répertoire contenant le script, juste des façons tordues de l'obtenir qui ne marchent que dans des cas précis (et pas le mien)
Du coup pour l'instant je fait setwd('chemin complet de mon fichier de script'), mais c'est pas satisfaisant car j'ai pas vraiment envie de demander aux utilisateurs du script de l'éditer.

Voilà, si quelqu'un sait comment obtenir le nom de dossier contenant un script ça m'aiderait beaucoup.

Code:

---

1 2 3 4

(dir=getwd()) setwd('../') # remonte dans le dossier parent gsub(paste0(getwd(), '\\/'), '', dir)

---

:lahola:

Merci pour ta réponse mais elle ne répond pas à ma question.

Mon problème c'est justement que mon répertoire de travail est "C:/"

Si je fait un script du genre

Code:

---

1 2	print(getwd())

---

Et que je clique dessus, j’obtiens.

Code:

---

1 2

"c:/"

---

Alors que mon fichier a un chemin du genre 'C:/Users/Moi/Desktop/MyFolder/script.r'

Du coup pour que ça marche pour l'instant je met au début de mon script :

Code:

---

1 2	setwd('C:/Users/Moi/Desktop/MyFolder')

---

Ce qui marche, mais les utilisateurs du scripts n'auront pas le même chemin que moi, c'est pour ça que j'ai besoin d'une fonction pour obtenir le nom du fichier/dossier de mon script plutôt que de l'écrire en "dur" dans le script.

Bonjour,
essayez de mettre ce code en début de script :

Code:

---

1 2 3

this.dir <- dirname(parent.frame(2)$ofile) setwd(this.dir)

---

http://www.r-bloggers.com/one-r-function-a-day/