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

 # Title: .Rprofile

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

-# Version: 0.3

+# Version: 0.4

 # Created in: 2014-07-06

-# Modified in: 2014-11-03

+# Modified in: 2016-10-02

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

 # Versions #

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

+# v0.4 - 2016-10-02: hour display on prompt simplified / auto-update of terminal column value for display added

 # v0.3 - 2014-11-03: less function added

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

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

@@ -39,10 +40,6 @@ 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)))

-

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

@@ -94,21 +91,20 @@ require(utils, quietly = TRUE)

 # Prompt showing current clock

 # source: http://stackoverflow.com/questions/4222476/r-display-a-time-clock-in-the-r-command-line

+# Don't use Tcl/Tk beacuse starting X11 leading to R crash when X11 connection is killed

 myprompt <- "%H:%M R> "

-if (capabilities()[["tcltk"]] && require(tcltk2, quietly=TRUE)) {

-    # First way

-    .startup$updatePrompt <- function(...) {options(prompt=format(Sys.time(),myprompt))}

-    tclTaskSchedule(1000, .startup$updatePrompt(), id = "ticktock", redo = TRUE)

-    .startup$updatePrompt()

-}  else {

-    # Second way: working except when error message (no time update)

-    .startup$updatePrompt <- function(..., quietly=FALSE) {

-        options(prompt=format(Sys.time(),myprompt)) 

-        if (quietly == FALSE) {return(TRUE)}

-    }

-    addTaskCallback(.startup$updatePrompt)

-    .startup$updatePrompt(quietly=TRUE)

+.startup$updatePrompt <- function(..., quietly=FALSE) {

+    # Update time

+    options(prompt=format(Sys.time(),myprompt))

+

+    # Update terminal column value for 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)))

+

+    if (quietly == FALSE) {return(TRUE)}

 }

+addTaskCallback(.startup$updatePrompt)

+.startup$updatePrompt(quietly=TRUE)

 # Exit