Example
Startup
# Load library setwidth on start - to set the width automatically.
.First <- function() {
library(setwidth)
# If 256 color terminal - use library colorout.
if (Sys.getenv("TERM") %in% c("xterm-256color", "screen-256color")) {
library("colorout")
}
}
Options
# Select default CRAN mirror for package installation.
options(repos=c(CRAN="https://cran.gis-lab.info/"))
# Print maximum 1000 elements.
options(max.print=1000)
# No scientific notation.
options(scipen=10)
# No graphics in menus.
options(menu.graphics=FALSE)
# Auto-completion for package names.
utils::rc.settings(ipck=TRUE)
Custom Functions
# Invisible environment to mask defined functions
.env = new.env()
# Quit R without asking to save.
.env$q <- function (save="no", ...) {
quit(save=save, ...)
}
# Attach the environment to enable functions.
attach(.env, warn.conflicts=FALSE)
