Command for “Set working directory to source file location”

Question

RStudio has a useful feature:

Session -> Set Working Directory -> To Source File Location

Is there a way to do this without using the

Answer 1

Slight variation on @Ciro's answer above, for Mac users:

pathwd<-sub("/dummy.R","",system("find . -type f -name dummy.R",intern=T)[1]) 
setwd(pathwd)

Replace dummy.R with your filename of course.

Answer 2

You can use :

source("script.R", chdir = TRUE)

and change "script.R" by the name of the file you're interested in.

Answer 3

This will work on most systems, it gets a little buggy with Macs.

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

Answer 4

pathwd<-sub("/filename","",system("find -perm -g=w -type f -name 'filename'",intern=T)[1])
setwd(pathwd)

Make sure your file's name is unique.