@@ -1,8 +1,8 @@

 # Title: .Rprofile

 # Author: Frédéric CHEVALIER <f15.chevalier@gmail.com>

-# Version: 0.1

+# Version: 0.2

 # Created in: 2014-07-06

-# Modified in: 2014-08-06

+# Modified in: 2014-10-21

@@ -19,6 +19,7 @@

 # Versions #

 #==========#

+# v0.2 - 2014-10-21: bug correction about width of terminal

 # v0.1 - 2014-08-06: bug correction about interactivity (curly brackets missing)

 # v0.0 - 2014-07-06: creation

@@ -37,6 +38,10 @@ if (interactive()) {

 # Don't ask me for my CRAN mirror every time

 options("repos" = c(CRAN = "http://cran.revolutionanalytics.com"))

+# Enlarge columns display in R terminal

+# source: http://stackoverflow.com/questions/1172485/how-to-increase-the-number-of-columns-using-r-in-linux

+options(width=as.integer(system("stty -a | head -n 1 | awk '{print $7}' | sed 's/;//'", intern=TRUE)))

+

 #===========#

@@ -73,13 +78,6 @@ require(utils, quietly = TRUE)

 		cat("\n")

     }

-	# Enlarge columns display in R terminal

-	# source: http://stackoverflow.com/questions/1172485/how-to-increase-the-number-of-columns-using-r-in-linux

-	wideScreen <- function(howWide=Sys.getenv("COLUMNS")) {

-		options(width=as.integer(howWide))

-	wideScreen()

-	}

-

 }