appels de plusieurs fonctions

Version imprimable

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:

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) }

09/12/2013, 13h59
mamounMob

Code:

source(file = '~/chemin-vers-mes-fichiers/', chdir = TRUE)
09/12/2013, 14h27
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:

1 2 3 > source(file = getwd(), chdir = TRUE) > affichage()
Erreur : impossible de trouver la fonction "affichage"

Code:

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")
         }
      }

09/12/2013, 16h25
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.
09/12/2013, 16h40
kaleme

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

Code:

rm(list=setdiff(ls(), ls.str(mode="function")))
09/12/2013, 16h43
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:

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
11/12/2013, 14h27
kaleme

Oui ça marche aussi. Merci pour tes conseils.