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

 # Title: .Rprofile

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

-# Version: 1.0

+# Version: 1.1

 # Created in: 2014-07-06

-# Modified in: 2020-03-01

+# Modified in: 2020-08-27

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

 # Versions #

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

+# v1.1 - 2020-08-27: reconnect_X11 function added / repo link updated

 # v1.0 - 2020-03-01: library path set / specific library path depending on the environment / section executed in non interactive mode / repo link updated

 # 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

@@ -50,7 +51,7 @@ if (! .startup$is.root && ! .startup$is.conda) {

 if (interactive()) {

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

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

+options("repos" = c(CRAN = "https://cloud.r-project.org/"))

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

@@ -130,6 +131,15 @@ addTaskCallback(.startup$updatePrompt)

     file.show(file, delete.file = TRUE)

 }

+# Reconnect to X11

+.startup$reconnect_X11 <- function(port) {

+    if (missing(port)) {

+        port <- system("xauth list | grep $(hostname) | tail -1 | awk '{print $1}' | sed \"s/.*://\"", intern = TRUE)

+    }

+    Sys.setenv(DISPLAY = paste0("localhost:", port, ".0"))

+}

+

+

 #=========#