平時做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()函數可以執行推出時清理工作，如保存命令歷史記錄、保存數據輸出和數據文件等等
本文轉自：http://blog.sina.com.cn/s/blog_50ccfc410101eigd.html
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~我是分割線~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
這個我自己改了一個啓動語，包括定義了工作目錄：
setwd("D:/R/drily")
.First <- function(){
# 設置R啓動時加載的包
library(praise)
library(lubridate)
# 啓動時交互，可自定義
aa <- function(a){
x <- ifelse( a>=0 & a<7 ,"凌晨",
ifelse(a>=7 & a<12, "清晨",
ifelse(a>=12 & a<16, "中午",
ifelse(a>=16 & a<20, "下午","傍晚"))))
}
cat( aa(hour(now())),"好 追雲，","\n","歡迎來到R的世界","\n", "現在時間", date() ,"\n" , praise())
}
這樣給自己一個比較人性化的樣子，自我感覺比較良好。
這是啓動時的結果：
傍晚 好 追雲，
歡迎來到R的世界
現在時間 Thu Mar 29 22:11:41 2018
You are amazing!
關閉的就沒有寫了，因爲關了也看不見【笑哭】