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

 # Title: .Rprofile

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

-# Version: 0.4

+# Version: 1.0

 # Created in: 2014-07-06

-# Modified in: 2016-10-02

+# Modified in: 2020-03-01

@@ -10,7 +10,7 @@

 # Comments #

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

-# ~/.Rprodile: executed by R for interactive shells.

+# ~/.Rprofile: executed by R for interactive shells.

 # see http://stat.ethz.ch/R-manual/R-devel/library/base/html/Startup.html

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

 # Versions #

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

+# 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

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

@@ -31,15 +32,25 @@

 # User specific options #

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

-# Test if it is an interactive session

-if (interactive()) {

-

-# Create a new invisible environment for all the functions to go in so it doesn't clutter your workspace

+# Create a new invisible environment for all the objects and functions to go in so it doesn't clutter the workspace

 .startup <- new.env()

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

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

+# Determine environment

+.startup$is.root  <- system("id -u", intern=TRUE) == 0

+.startup$is.conda <- nchar(Sys.getenv("CONDA_PREFIX")) > 0

+

+# Specific package folder in user global environment only

+if (! .startup$is.root && ! .startup$is.conda) {

+    .startup$mylib <- paste0("~/.R-libs/", version$major, ".", version$minor)

+    if (! dir.exists(.startup$mylib)) {dir.create(.startup$mylib, recursive=TRUE)}

+    .libPaths(.startup$mylib)

+}

+

+# Test if it is an interactive session and run the downstream code

+if (interactive()) {

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

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

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

@@ -81,7 +92,7 @@ require(utils, quietly = TRUE)

 # All functions executed when exiting R

 .Last <- function() {

-    if (! any(commandArgs() == '--no-readline')) {

+    if (! any(commandArgs() == '--no-readline') && ! .startup$is.root) {

         require(utils, quietly=TRUE)

         #timestamp(quiet=TRUE)

         try(savehistory(Sys.getenv("R_HISTFILE")))

@@ -116,7 +127,7 @@ addTaskCallback(.startup$updatePrompt)

     file <- tempfile()

     sink(file); on.exit(sink())

     print(x)

-    file.show(file, delete.file = T)

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

 }

@@ -126,7 +137,7 @@ addTaskCallback(.startup$updatePrompt)

 #=========#

 # Moving (bash-like command)

-.startup$cd <- setwd

+.startup$cd  <- setwd

 .startup$pwd <- getwd