Вызов оболочки skript с определенным рабочим каталогом из R

Question

У меня есть сценарий sh, который может запускаться только из определенного каталога, потому что он ищет файлы в этом каталоге, и я не хочу менять sh-файл.

Предположим, что файл находится в ./sub/script.sh и рабочий каталог R является ./

Что работает,

wd = getwd() 
setwd("./sub") 
system2("./script.sh") 
setwd(wd) 

Но я считаю, что довольно неудобно. Как я могу обойтись без изменения рабочего режима R?

Answer 1

Как system2 использует shQuote мы можем использовать только system() и, как уже указывал @Dirk вы можете использовать

system("cd ./sub && sh script.sh") 

Answer 2

Это не красиво, но делает работу

# A function that will call the script 
test <- function(){ 

    # Current working directory 
    cur <- getwd(); 

    # On exit, come back 
    on.exit(setwd(cur)); 

    # Change directory 
    setwd("~"); 

    # Run the command 
    system("pwd"); 

    # Return 
    NULL 
} 

Тогда просто вызовите функцию test().