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/"
       options(repos=r)
})

Sys.setlocale(category = "LC_ALL", locale = "en_US.UTF-8")

print(paste("Using Locale Encoding:",Sys.setlocale("LC_CTYPE","en_US.UTF-8")));