Modification du répertoire de travail dans une fonction

Question

Je souhaite transmettre le nom du répertoire en tant qu'argument formel de la fonction. Dans la fonction, je veux changer mon répertoire de travail pour le répertoire mentionné dans l'argument formel. Le répertoire se trouve actuellement dans mon répertoire de travail.

Note:

specdata est le répertoire dans mon wd actuel

code:

x <-function(directory) 
{ 
y<-file.path(getwd(),directory) 
setwd(y) 
} 

x(specdata) 

Cela semble ne fonctionne pas, je ne veux pas entrer "specdata" en fonction argument.It devrait not be in double quotes.

Answer 1

Je ne sais pas pourquoi vous voulez éviter les guillemets, car vous n'avez pas expliqué le contexte. Mais si c'est vraiment ce dont vous avez besoin, vous pouvez utiliser une évaluation non standard pour y parvenir.

x <-function(directory) { 
    directory <- as.character(substitute(directory)) 
    y <-file.path(getwd(),directory) 
    setwd(y) 
    } 

L'utilisation de as.character(substitute()) est exactement comment, par exemple, la fonction library() permet d'avoir soit des citations ou non (la ligne réelle qui fait cela dans la fonction de la bibliothèque est package <- as.character(substitute(package)).)