我总是发现其他人的创业简介文件对这门语言既有用又有指导意义。此外，虽然我对Bash和Vim进行了一些定制，但对R没有任何定制。
例如，我一直想要的一件事是在窗口终端中输入和输出文本的颜色不同，甚至可能是语法高亮显示。
当前回答
我在个人资料中设置了格子颜色主题。以下是我使用的另外两个调整方法:
# Display working directory in the titlebar
# Note: This causes demo(graphics) to fail
utils::setWindowTitle(base::getwd())
utils::assignInNamespace("setwd",function(dir) {.Internal(setwd(dir));setWindowTitle(base::getwd())},"base")
# Don't print more than 1000 lines
options(max.print=2000)
其他回答
我的大部分个人函数和加载的库都在rfunction中。r脚本
source("c:\\data\\rprojects\\functions\\Rfunctions.r")
.First <- function(){
cat("\n Rrrr! The statistics program for Pirates !\n\n")
}
.Last <- function(){
cat("\n Rrrr! Avast Ye, YO HO!\n\n")
}
#===============================================================
# Tinn-R: necessary packages
#===============================================================
library(utils)
necessary = c('svIDE', 'svIO', 'svSocket', 'R2HTML')
if(!all(necessary %in% installed.packages()[, 'Package']))
install.packages(c('SciViews', 'R2HTML'), dep = T)
options(IDE = 'C:/Tinn-R/bin/Tinn-R.exe')
options(use.DDE = T)
library(svIDE)
library(svIO)
library(svSocket)
library(R2HTML)
guiDDEInstall()
shell(paste("mkdir C:\\data\\rplots\\plottemp", gsub('-','',Sys.Date()), sep=""))
pldir <- paste("C:\\data\\rplots\\plottemp", gsub('-','',Sys.Date()), sep="")
plot.str <-c('savePlot(paste(pldir,script,"\\BeachSurveyFreq.pdf",sep=""),type="pdf")')
我在个人资料中设置了格子颜色主题。以下是我使用的另外两个调整方法:
# Display working directory in the titlebar
# Note: This causes demo(graphics) to fail
utils::setWindowTitle(base::getwd())
utils::assignInNamespace("setwd",function(dir) {.Internal(setwd(dir));setWindowTitle(base::getwd())},"base")
# Don't print more than 1000 lines
options(max.print=2000)
我讨厌每次都输入“头”、“摘要”、“名字”这些完整的单词，所以我用别名。
你可以在你的. rprofile文件中放入别名，但是你必须使用函数的完整路径(例如utils::head)，否则它将无法工作。
# aliases
s <- base::summary
h <- utils::head
n <- base::names
编辑:回答你的问题，你可以使用显色包在终端中有不同的颜色。太酷了!: -)
我喜欢保存我的R命令历史，并在每次运行R命令时都可用:
在shell或.bashrc中:
export R_HISTFILE=~/.Rhistory
在.Rprofile:
.Last <- function() {
if (!any(commandArgs()=='--no-readline') && interactive()){
require(utils)
try(savehistory(Sys.getenv("R_HISTFILE")))
}
}
我的不太花哨:
# So the mac gui can find latex
Sys.setenv("PATH" = paste(Sys.getenv("PATH"),"/usr/texbin",sep=":"))
#Use last(x) instead of x[length(x)], works on matrices too
last <- function(x) { tail(x, n = 1) }
#For tikzDevice caching
options( tikzMetricsDictionary='/Users/cameron/.tikzMetricsDictionary' )
