我在看《R语言实战》时看到有讲R自定义启动环境,能够在打开R时自动加载一些常用的包或者设置工作路径等。书上的内容大致时这样的:你可以通过编辑位置位置初始化文件(Rprofile.site)或者目录初始化文件(.Rprofile)来定制R环境。这两个是纯文本文件,包含启动时要执行的R代码。
在启动的时候,R会从R_HOME/etc这个目录寻找Rprofile.site来调用,其中 R_HOME 是环境变量。然后R会在当前工作目录寻找.Rprofile文件来调用。如果R没有找到这个文件,就会在用户的主目录寻找。你可以用Sys.getenv("R_HOME")、Sys.getenv("HOME")和getwd()分别查看R_HOME 、HOME以及当前工作目录。
你可以在这些文件里放两个特殊的函数,.First()函数在启动R会话的时候执行,.Last()函数在结束会话的时候执行。Rprofile.site文件的例子如下:
Sample Rprofile.site file# 设置常用选项options(papersize="a4")
options(editor="notepad")
options(pager="internal")
options(tab.width = 2)
options(width = 130)options(graphics.record=TRUE)
options(show.signif.stars=FALSE)
# 设置R交互提示信息
options(prompt="> ")
options(continue="+ ")
.libPaths("C:/my_R_library")
# 设置包的本地库(library)路径
# 设置CRAN镜像默认地址
local({r <- getOption("repos")
r["CRAN"] <- "http://cran.case.edu/"
options(repos=r)})
# 启动函数.First <- function(){
library(lattice)
library(Hmisc)
source("C:/mydir/myfunctions.R")
cat("\nWelcome at", date(), "\n")
}
# 会话结束函数.Last <- function(){
cat("\nGoodbye at ", date(), "\n")
}
但是我在MAC的R_HOME/etc里没有找到Rprofile.site文件,不知道该怎么做。请大神帮帮忙