Команда для "Установить рабочую директорию в местоположение исходного файла"

Question

RStudio имеет полезную функцию:

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

Есть ли способ сделать это без использования выпадающих меню?

ОБНОВИТЬ:

может быть, лучший способ спросить это:

есть ли команда для возврата пути к файлу текущего скрипта r?

Я также нашел эту ветку, но решения не помогли мне. Даже Хэдли!

Rscript: определить путь к исполняемому скрипту

Answer 1

Ты можешь использовать:

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

и замените "script.R" на имя интересующего вас файла.

Answer 2

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

Убедитесь, что имя вашего файла уникально.

Answer 3

Небольшая разница в ответе @Ciro выше, для пользователей Mac:

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

замещать dummy.R с вашим именем файла, конечно.

Answer 4

Это будет работать на большинстве систем, с Mac'ами это немного глючит.

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