about summary refs log tree commit diff
path: root/r/.Rprofile
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

Consider giving Nix/NixOS a try! <3