R语言自定义启动环境
刚做数据分析师时，很多分析软件应用的不是很好，就拿R语言来说吧，平时做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"] <- "
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()函数可以执行推出时清理工作，如保存命令历史记录、保存数据输出和数据文件等等
