Изменение рабочего каталога внутри функции

Question

Я хочу передать имя каталога в качестве формального аргумента функции. Внутри функции я хочу изменить рабочий каталог на каталог, упомянутый в формальном аргументе. В настоящее время каталог находится внутри моего рабочего каталога.

Примечание:

specdata директория внутри моих текущих БВ

код:

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

x(specdata) 

Это, кажется, не работает, я не хочу, чтобы ввести "specdata" в качестве функции argument.It должен not be in double quotes.

Answer 1

Я не знаю, почему вы хотите избежать двойных кавычек, поскольку вы не объяснили контекст. Но если это действительно то, что вам нужно, то для достижения этой цели вы можете использовать нестандартную оценку.

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

Использование as.character(substitute()) именно как, например, функция library() позволяет либо иметь цитаты или нет (фактической линии, что делает это в функции библиотеки является package <- as.character(substitute(package)).)