# RNC ~/.Rprofile

# auto width adjustment
.adjustWidth <- function(...){
options(width=Sys.getenv("COLUMNS"))
TRUE
}
.adjustWidthCallBack <- addTaskCallback(.adjustWidth)

.First <- function() cat("\n Script ~/.Rprofile executed.\n\n")
.Last <- function() cat("\n Goodbye!\n\n")