R 通过函数设置工作目录

我是R的新手。我在通过函数设置工作目录时遇到了麻烦。 这就是我尝试过的：

myfunction<-function(directory)
   {
     setwd(paste(getwd(),("/directory"))

   }

myfunction试试这个：

myfunction <- function(directory) setwd( file.path(getwd(), directory) )

或者意识到您的函数实际上执行与
setwd
相同的函数，这将起作用：

myfunction <- setwd

myfunction您面临的问题是使用“/directory”。如果只使用目录而不是中的“目录”，则会得到结果：

myfunction我不知道，但如果您感兴趣，这可能也会有帮助：


或者只需使用以下代码：
上述源文件包含以下三个代码：

1.要求用户提供目录的路径
尝试使用
setwd（粘贴0（getwd（），“/directory”）
paste
插入空格。
myfunction <- setwd

source("https://raw.githubusercontent.com/imanojkumar/MyFunctions1/master/ChangeDirectory.R")

directory <-  readline('Enter Path to Directory You want to set as
                        Default (use backslash e.g. "E:/MyDirectory") : ')

myfunction <- function(directory) {
if (!is.null(directory))
   setwd(directory)
}

myfunction(directory)