set working directory to current source directory

On Mon, Aug 13, 2012 at 8:40 PM, Sachinthaka Abeywardana

Hi all,

Is there a way to get cran R to set the working directory to be wherever
the source file is? Each time I work on a project on different computers I
keep having to set the working directory which is getting quite annoying.

Thanks,
Sachin

You could use this:

source.and.set <- function(x) {
	setwd(dirname(x))
	source(x)
}
# use it like this:
source.and.set("/a/b/c.R")

or you could put this hack at the top of your source file in which
case whenever its source'd it will setwd to its directory:

this.dir <- dirname(parent.frame(2)$ofile)
setwd(this.dir)

Statistics & Software Consulting
GKX Group, GKX Associates Inc.
tel: 1-877-GKX-GROUP
email: ggrothendieck at gmail.com