blob: a4afb3b79155304b0cece2d9b6af5db5c859ef6b (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
|
local({
r <- getOption("repos")
r["CRAN"] <- "http://cran.revolutionanalytics.com"
options(repos = r)
})
options(prompt="λ ")
options(continue=" … ")
options("digits.secs" = 3)
options(browserNLdisabled = TRUE)
options(editor = "vim")
options(error = NULL)
options(max.print = 100)
options(max.print = 500)
options(menu.graphics = FALSE)
options(scipen = 10)
options(show.signif.stars = FALSE)
options(showErrorCalls = TRUE)
options(showWarnCalls = TRUE)
options(stringsAsFactors = FALSE)
options(warn = 0)
options(warnPartialMatchDollar = TRUE)
options(width = 80)
q <- function (save = "no", ...)
quit(save = save, ...)
utils::rc.settings(ipck = TRUE)
.First <- function()
{
if (interactive())
{
library(utils)
timestamp(prefix = paste("##------ [", getwd(), "] ", sep = ""))
}
}
.Last <- function()
{
if (interactive())
{
hist_file <- Sys.getenv("R_HISTFILE")
if (hist_file == "")
hist_file <- "~/.RHistory"
savehistory(hist_file)
}
}
if (Sys.getenv("TERM") == "xterm-256color")
library("colorout")
.env <- new.env()
.env$unrowname <- function(x)
{
rownames(x) <- NULL
x
}
.env$unfactor <- function(df)
{
id <- sapply(df, is.factor)
df[id] <- lapply(df[id], as.character)
df
}
attach(.env)
# vim: filetype=r
|