R语言自定义启动环境

原文地址：http://blog.sina.com.cn/s/blog_50ccfc410101eigd.html

平时做R开发时，每次启动R环境都会要加载很多package，甚是繁琐。最近学习《R in action》时，介绍了自定义R启动环境的方法。

windows环境下，R启动时会到R_Home\etc目录下找Rprofile.site文件，其中“R_Home”指的是R安装目录，例如c:\R。可以用notepad等文本编辑器打开c:\R\etc\Rprofile.site，进行修改
 
# Things you might want to change
# 下面是常规设置，包括，默认编辑器、制表符宽度等等
# options(papersize="a4")
# options(tab.width=2)
# options(editor="notepad")
# options(pager="internal")
# set the default help type
# options(help_type="text")
  options(help_type="html")
# set a site library
# 自定义库路径，便于备份
# .Library.site <- file.path(chartr("\\", "/", R.home()), "site-library")
# set a CRAN mirror
# 设置CRAN镜像，选一个最近源，这样安装和更新包时就不用手动选取CRAN镜像了
 local({r <- getOption("repos")
       r["CRAN"] <- "http://ftp.ctex.org/mirrors/CRAN/"
       options(repos=r)})
# Give a fortune cookie, but only to interactive sessions
# (This would need the fortunes package to be installed.)
#  if (interactive())
#    fortunes::fortune()
.First <- function(){
# 设置R启动时加载的包
library(TSA)
library(MASS)
# 启动时交互，可自定义
cat("\nWelcome at",date(),"\n")
}
# 退出时交互
.Last <- function(){
cat("\nGoodnye at",date(),"\n")
}
 
.First()函数中除了加载常用package之外，还可以加载保存自己编写的常用函数的源代码文件
.Last()函数可以执行推出时清理工作，如保存命令历史记录、保存数据输出和数据文件等等