Ändern des Arbeitsverzeichnisses innerhalb einer Funktion

Question

Ich möchte den Verzeichnisnamen als formales Argument der Funktion übergeben. Innerhalb der Funktion möchte ich mein Arbeitsverzeichnis in das in formalen Argument erwähnte Verzeichnis ändern. Das Verzeichnis befindet sich derzeit in meinem Arbeitsverzeichnis.

Hinweis:

specdata ist das Verzeichnis, in meinem aktuellen wd

Code:

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

x(specdata) 

Dies scheint nicht zu funktionieren, ich will nicht "specdata" als Funktion argument.It eingeben sollte not be in double quotes.

Answer 1

Ich weiß nicht, warum Sie die Anführungszeichen vermeiden wollen, da Sie den Kontext nicht erklärt haben. Aber wenn dies wirklich das ist, was Sie brauchen, können Sie eine nicht-standardmäßige Auswertung verwenden, um dies zu erreichen.

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

Die Verwendung von as.character(substitute()) ist genau, wie zum Beispiel die Funktion library() man entweder haben, Zitate oder nicht erlaubt (die aktuelle Zeile, die diese Funktion in der Bibliothek tut, ist package <- as.character(substitute(package)).)