Disable d4storagehub4R again

This commit is contained in:
Andrea Dell'Amico 2023-04-08 12:09:56 +02:00
parent 6c7e2c46aa
commit fb53e9fee9
Signed by: andrea.dellamico
GPG Key ID: 147ABE6CEB9E20FF
1 changed files with 11 additions and 9 deletions

View File

@ -5,7 +5,8 @@ print(paste(""))
print(paste("Any work produced by making use of assets made available by the D4Science infrastructure should acknowledge")) print(paste("Any work produced by making use of assets made available by the D4Science infrastructure should acknowledge"))
print(paste("the support received and give credits. Please include the following reference:")) print(paste("the support received and give credits. Please include the following reference:"))
print(paste("")) print(paste(""))
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("M. Assante et al. (2019) Enacting open science by D4Science."))
print(paste("Future Gener. Comput. Syst. 101: 555-563 10.1016/j.future.2019.05.063"))
print(paste("")) print(paste(""))
print(paste("Please read the following instructions to maximise the exploitation of the RStudio environment.")) print(paste("Please read the following instructions to maximise the exploitation of the RStudio environment."))
@ -17,7 +18,8 @@ print(paste(""))
print(paste("You can also access, read and write any folder of your workspace")) 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("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("developed by E. Blondel, with source code available at https://github.com/eblondel/d4storagehub4R"))
print(paste("To create the manager to interact with the Workspace, use the R code: storagehub = initStoragehubManager()")) # print(paste("To create the manager to interact with the Workspace, use the R code:"))
# print(paste(" storagehub = initStoragehubManager()"))
print(paste("For more info about methods available to interact with workspace,")) print(paste("For more info about methods available to interact with workspace,"))
print(paste("consult the documentation at ?d4storagehub4R::StoragehubManager")) print(paste("consult the documentation at ?d4storagehub4R::StoragehubManager"))
print(paste("")) print(paste(""))
@ -42,11 +44,11 @@ options(repos = c(CRAN = 'https://packagemanager.rstudio.com/cran/__linux__/foca
options(HTTPUserAgent = sprintf("R/%s R (%s)", getRversion(), paste(getRversion(), R.version["platform"], R.version["arch"], R.version["os"]))) options(HTTPUserAgent = sprintf("R/%s R (%s)", getRversion(), paste(getRversion(), R.version["platform"], R.version["arch"], R.version["os"])))
Sys.setlocale(category = "LC_ALL", locale = "en_US.UTF-8") Sys.setlocale(category = "LC_ALL", locale = "en_US.UTF-8")
print(paste("")) print(paste(""))
initStoragehubManager <- function(){ # initStoragehubManager <- function(){
require(d4storagehub4R) # require(d4storagehub4R)
storagehub <- d4storagehub4R::StoragehubManager$new( # storagehub <- d4storagehub4R::StoragehubManager$new(
token_type = "jwt", token = Sys.getenv("D4SCIENCE_TOKEN") # token_type = "jwt", token = Sys.getenv("D4SCIENCE_TOKEN")
) # )
return(storagehub) # return(storagehub)
} # }
print(paste("Using Locale Encoding:",Sys.setlocale("LC_CTYPE","en_US.UTF-8"))); print(paste("Using Locale Encoding:",Sys.setlocale("LC_CTYPE","en_US.UTF-8")));