setwd in the current working dir

Question

I've made a folder list. Each folder has a R script that must be run on all files in the folder. I wrote the script once and then duplicated it in each folder. The issue is that I have a list of roughly 100 folders, so manually settingwd() in the current working dir is hard for me. I'm curious if it's feasible to set the current working directory with a "." for example:

Instead of inputting the folder name every time, use setwd("/User/myname/./") or any simple method to inform R the current working directory.

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 )