Здесь является альтернативным решением, так как пакет Defaults
находится в архиве:
# Use `formals<-`, but note the comment in the examples of ?formals:
#
## You can overwrite the formal arguments of a function (though this is
## advanced, dangerous coding).
formals(setwd) <- alist(dir = "C:/Users/me/Desktop")
Или вы могли бы замаскировать base::setwd()
что-то вроде:
setwd <- function(dir) {
if (missing(dir) || is.null(dir) || dir == "") {
dir <- "C:/Users/me/Desktop"
}
base::setwd(dir)
}
UPDATE: Пакет по умолчанию находится в архиве, так что это решение работает только если вы загрузите пакет из архива CRAN и строить из себя источник.
Вы можете использовать пакет Defaults, чтобы установить его в нужное вам состояние. Тогда вы можете просто позвонить setwd()
.
library(Defaults)
setDefaults(setwd, dir="C:/Users/me/Desktop")
setwd()
См. this answer if you want to put the above code in your .Rprofile.
Нет такой вещи, как «рабочий каталог по умолчанию в R». Рабочий каталог определяется при запуске и может варьироваться в зависимости от нескольких вещей. –
Просто создайте переменную в вашем .Rprofile как: 'myoriginalwd <- getwd()'. – Thomas
@Thomas: это все равно будет зависеть от того, как вызывается R, что, похоже, не так, как хочет OP. –