Discussion :

[Theta]

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.

[mamounMob]

Code :

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

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

[Theta]

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 :

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

1
2
 
print(getwd())

Et que je clique dessus, j’obtiens.

Code :

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

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 :

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

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.

[kaleme]

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

Code :

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

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

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