我总是发现其他人的创业简介文件对这门语言既有用又有指导意义。此外，虽然我对Bash和Vim进行了一些定制，但对R没有任何定制。
例如，我一直想要的一件事是在窗口终端中输入和输出文本的颜色不同，甚至可能是语法高亮显示。
当前回答
这是我的。我总是使用主要的cran存储库，并且有代码可以使它很容易地获得开发包中的代码。
.First <- function() {
library(graphics)
options("repos" = c(CRAN = "http://cran.r-project.org/"))
options("device" = "quartz")
}
packages <- list(
"describedisplay" = "~/ggobi/describedisplay",
"linval" = "~/ggobi/linval",
"ggplot2" = "~/documents/ggplot/ggplot",
"qtpaint" = "~/documents/cranvas/qtpaint",
"tourr" = "~/documents/tour/tourr",
"tourrgui" = "~/documents/tour/tourr-gui",
"prodplot" = "~/documents/categorical-grammar"
)
l <- function(pkg) {
pkg <- tolower(deparse(substitute(pkg)))
if (is.null(packages[[pkg]])) {
path <- file.path("~/documents", pkg, pkg)
} else {
path <- packages[pkg]
}
source(file.path(path, "load.r"))
}
test <- function(path) {
path <- deparse(substitute(path))
source(file.path("~/documents", path, path, "test.r"))
}
其他回答
我使用下面的方法让cacheSweave(或pgfSweave)在RStudio中使用“Compile PDF”按钮:
library(cacheSweave)
assignInNamespace("RweaveLatex", cacheSweave::cacheSweaveDriver, "utils")
我的包括选项(menu.graphics=FALSE)，因为我喜欢禁用/抑制tcltk弹出的CRAN镜像在R中选择。
Stephen Turner关于. rprofiles的帖子有几个有用的别名和启动函数。
我发现自己经常使用他的“ht”和“hh”。
#ht==headtail, i.e., show the first and last 10 items of an object
ht <- function(d) rbind(head(d,10),tail(d,10))
# Show the first 5 rows and first 5 columns of a data frame or matrix
hh <- function(d) d[1:5,1:5]
我讨厌每次都输入“头”、“摘要”、“名字”这些完整的单词，所以我用别名。
你可以在你的. rprofile文件中放入别名，但是你必须使用函数的完整路径(例如utils::head)，否则它将无法工作。
# aliases
s <- base::summary
h <- utils::head
n <- base::names
编辑:回答你的问题，你可以使用显色包在终端中有不同的颜色。太酷了!: -)
我有一个环境变量R_USER_WORKSPACE，它指向包的顶部目录。在. rprofile中，我定义了一个函数devlib，它设置了工作目录(以便data()工作)，并在R子目录中获取所有.R文件。它与上面Hadley的l()函数非常相似。
devlib <- function(pkg) {
setwd(file.path(Sys.getenv("R_USER_WORKSPACE", "."), deparse(substitute(pkg)), "dev"))
sapply(list.files("R", pattern=".r$", ignore.case=TRUE, full.names=TRUE), source)
invisible(NULL)
}
.First <- function() {
setwd(Sys.getenv("R_USER_WORKSPACE", "."))
options("repos" = c(CRAN = "http://mirrors.softliste.de/cran/", CRANextra="http://www.stats.ox.ac.uk/pub/RWin"))
}
.Last <- function() update.packages(ask="graphics")
