From 3c90af63debca21a583c28ec7a458823ead6802d Mon Sep 17 00:00:00 2001
From: Andrea Dell'Amico <andrea.dellamico@isti.cnr.it>
Date: Mon, 20 Mar 2023 13:16:12 +0100
Subject: [PATCH] Rprofile for rstudio over jupyterhub.

---
 jupyter-Rprofile.site | 49 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 49 insertions(+)
 create mode 100644 jupyter-Rprofile.site

diff --git a/jupyter-Rprofile.site b/jupyter-Rprofile.site
new file mode 100644
index 0000000..bbd70ed
--- /dev/null
+++ b/jupyter-Rprofile.site
@@ -0,0 +1,49 @@
+print(paste("***************** D4Science supported RStudio-as-a-Service *******************"))
+print(paste(""))
+print(paste("Welcome to the RStudio service offered by D4Science."))
+print(paste(""))
+print(paste("Any work produced by making use of assets made available by the D4Science infrastructure should acknowledge the support received and give credits. Please include the following reference:")) 
+print(paste("M. Assante et al. (2019) Enacting open science by D4Science. Future Gener. Comput. Syst. 101: 555-563 10.1016/j.future.2019.05.063"))
+print(paste(""))
+print(paste("Please read the following instructions to maximise the exploitation of the RStudio environment."))
+
+print(paste("*****************USAGE NOTES*******************"))
+
+print(paste("*****************D4Science Workspace****************"))
+print(paste("You can access your workspace under 'workspace' in hour home directory"))
+print(paste(""))
+print(paste("You can also 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("Those packages can be made permanent installing them into your home directory."))
+print(paste("You have to create a directory, eg '~/R-library/4.1'"))
+print(paste("and then install the packages in the following way:"))
+print(paste("install.packages('pkg_name', lib='~/R-library/4.1')"))
+print(paste("Please keep in mind that those packages are only compatible"))
+print(paste("with the R version they are build against."))
+print(paste("***********************************************"))
+
+########### Default mirror site #############################
+local({r <- getOption("repos")
+       r["CRAN"] <- "https://cran.mirror.garr.it/mirrors/CRAN/"
+       options(repos=r)
+})
+
+Sys.setlocale(category = "LC_ALL", locale = "en_US.UTF-8")
+
+require(d4storagehub4R)
+
+# more information at ?StoragehubManager
+.WORKSPACE = d4storagehub4R::StoragehubManager$new(
+  token_type = "jwt", token = Sys.getenv("D4SCIENCE_TOKEN")
+)
+
+print(paste("Using Locale Encoding:",Sys.setlocale("LC_CTYPE","en_US.UTF-8")));