From 3ee112c38fa3ab178c326e9df5fa140dbcd388ba Mon Sep 17 00:00:00 2001
From: Leonardo Candela <leonardo.candela@isti.cnr.it>
Date: Thu, 9 Feb 2023 09:48:27 +0100
Subject: [PATCH] Update 'Rprofile.site'

To stress the D4Science presence.
---
 Rprofile.site | 44 +++++++++++++++++++++-----------------------
 1 file changed, 21 insertions(+), 23 deletions(-)

diff --git a/Rprofile.site b/Rprofile.site
index e340ff7..a6d5b64 100644
--- a/Rprofile.site
+++ b/Rprofile.site
@@ -1,3 +1,24 @@
+print(paste("***************** D4Science supported RStudio-as-a-Service *******************"))
+print(paste("Welcome to the RStudio service offered by D4Science."))
+
+print(paste("Please read the following instructions to maximise the exploitation of this RStudio environment."))
+
+print(paste("*****************D4Science Workspace****************"))
+print(paste("You can access, read and write any folder of your workspace"))
+print(paste("by loading - and using - the package 'd4storagehub4R'"))
+print(paste("developed by E. Blondel, with source code available at https://github.com/eblondel/d4storagehub4R"))
+print(paste("It is recommended to save any worth maintaining file into the workspace to persist it."))
+print(paste("The persistence of files stored elsewhere is not guaranteed."))
+print(paste("***********************************************"))
+
+print(paste("*****************Software upgrades and cloud facilities*******************"))
+print(paste("If you need some packages permanently installed in Rstudio,"))
+print(paste("please contact your VRE manager."))
+print(paste("R packages may also be installed directly by using the R console."))
+print(paste("However, the packages will not be present across different sessions"))
+print(paste("This option is therefore discouraged and it should be used only for testing purposes."))
+print(paste("***********************************************"))
+
 ########### Default mirror site #############################
 local({r <- getOption("repos")
        r["CRAN"] <- "https://cran.mirror.garr.it/mirrors/CRAN/"
@@ -6,27 +27,4 @@ local({r <- getOption("repos")
 
 Sys.setlocale(category = "LC_ALL", locale = "en_US.UTF-8")
 
-print(paste("Please read the following instructions to maximise the exploitation of the RStudio environment."))
-
-print(paste("*****************Software upgrades and cloud facilities*******************"))
-print(paste("if you need support or you need to install additional R packages requiring special privileges"))
-print(paste("please contact your VRE manager."))
-print(paste("R packages not requiring special privileges may also be installed directly by using the R console."))
-print(paste("However these packages will be local to the user workspace and they cannot require root access."))
-print(paste("Moreover, the packages may not be present across different sessions since they are local to one"))
-print(paste("RStudio server while each session may be allocated to a different RStudio server."))
-print(paste("This option is therefore discouraged and it should be used only for testing purposes."))
-print(paste("***********************************************"))
-
-print(paste("*****************USAGE NOTES*******************"))
-
-print(paste("*****************D4Science Workspace****************"))
-print(paste("You can access, read and write any folder of your workspace"))
-print(paste("by loading the package 'd4storagehub4R'"))
-print(paste("developed by E. Blondel, with source code available at https://github.com/eblondel/d4storagehub4R"))
-print(paste("or by saving your files to your local workspace folder"))
-print(paste("It is recommended to save any worth maintaining file into the workspace to persist it."))
-print(paste("The persistence of files stored elsewhere is not guaranteed."))
-print(paste("***********************************************"))
-
 print(paste("Using Locale Encoding:",Sys.setlocale("LC_CTYPE","en_US.UTF-8")));