Discussion :

[kaleme]

Bonjour,
je souhaite pouvoir appeler plusieurs fonctions qui sont situées dans un seul dossier.
Pour le moment, j’exécute le code ci-dessous (setPath.R) qui récupère l'ensemble des fonctions ".r" de mon répertoire mais il exécute chacune des fonctions qui y sont présentes. Est-ce qu'il y aurait un moyen beaucoup plus simple, comme dans matlab (set path), où on spécifie uniquement le dossier contenant les sources?
Je vous remercie pour votre aide.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
listFunctions = list.files( pattern = "\\.[R]$")
 
listFunctions=setdiff(list.files( pattern = "\\.[R]$") ,"setPath.R")
 
for (i in 1 :length(listFunctions))
{ 
 #fichier= paste(getwd(),"/",nm,sep = "")
 fichier = listFunctions[i]
 print(fichier)
 source(fichier)
}

[mamounMob]

Code :

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

source(file = '~/chemin-vers-mes-fichiers/', chdir = TRUE)

[kaleme]

Merci pour votre réponse.
J'ai essayé votre code dans la console mais lorsque j'appelle une des fonctions de mon dossier, celle-ci n'est toujours pas reconnue.

Code :

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

1
2
3
 
> source(file = getwd(), chdir = TRUE)
> affichage()

Erreur : impossible de trouver la fonction "affichage"

[mamounMob]

Code :

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

1
2
3
4
5
6
7
8
9
 
# ?source
      sourceDir <- function(path, trace = TRUE, ...) {
         for (nm in list.files(path, pattern = "[.][RrSsQq]$")) {
            if(trace) cat(nm,":")
            source(file.path(path, nm), ...)
            if(trace) cat("\n")
         }
      }

[kaleme]

L'exemple envoyé fait la même chose que ma fonction. Le problème est que dans mon dossier, j'ai crée une fonction qui efface les variables du workspace tout en conservant les fonctions sources. Je pense que le problème est que ma fonction est mal écrite. Existe t-il une fonction qui permet d'effacer les values du worspace sans effacer les fonctions mises en source?
Merci d'avance pour votre aide.

[kaleme]

Pour cette dernière question, je viens de trouver :

Code :

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

 rm(list=setdiff(ls(), ls.str(mode="function")))

[mamounMob]

Tu peut utiliser 'rm' après avoir listé les variables de ton environnement avec 'ls'.
Pour tester si un objet de ton environnement est une fonction, il existe la fonction 'get'.

Code :

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

1
2
3
4
5
 
is.function(get("lm")) # prend une chaîne de caractères
# TRUE
x = 1 
if (!is.function(get("x")) ) rm(x) # on supprime si ce n'est pas une fonction