r - setwd()在当前工作目录中

Question

我有一个文件夹列表。在每个文件夹中，都有一个R相同的脚本，该脚本必须在该文件夹中的文件上运行。我编写脚本一次，然后将脚本复制到每个文件夹中。问题是我有大约100个文件夹的列表，因此我无法手动在当前工作目录中设置setwd()。我想知道是否可以使用“。”设置当前工作目录。通过这种方式:

setwd("/User/myname/./")

或者以另一种简单的方式告诉R当前的工作目录，而不是每次都键入文件夹名称。

Answer 1

这个怎么样？

# set the working directory to the main folder containing all the directories
setwd( "/user/yourdir/" )

# pull all files and folders (including subfolders) into a character vector
# keep ONLY the files that END with ".R" or ".r"
r.scripts <- list.files( pattern=".*\\.[rR]$" , recursive = TRUE )

# look at the contents.. now you've got just the R scripts..
# i think that's what you want?
r.scripts

# and you can loop through and source() each one
for ( i in r.scripts ) source( i )