From ba37299b9bdd1c56b7648d66e61707d736f8d44b Mon Sep 17 00:00:00 2001
From: Andrea Dell'Amico <andrea.dellamico@isti.cnr.it>
Date: Wed, 1 Mar 2023 22:56:22 +0100
Subject: [PATCH] See #24680. Reinstate the load of the jwt token in the
 Rprofile

---
 container-Rprofile.site | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/container-Rprofile.site b/container-Rprofile.site
index 6c344d0..1e67a0e 100644
--- a/container-Rprofile.site
+++ b/container-Rprofile.site
@@ -33,11 +33,11 @@ local({r <- getOption("repos")
 
 Sys.setlocale(category = "LC_ALL", locale = "en_US.UTF-8")
 
-# require(d4storagehub4R)
+require(d4storagehub4R)
 
 # more information at ?StoragehubManager
-# .WORKSPACE = d4storagehub4R::StoragehubManager$new(
-#   token_type = "jwt", token = Sys.getenv("SHINYPROXY_OIDC_ACCESS_TOKEN")
-# )
+.WORKSPACE = d4storagehub4R::StoragehubManager$new(
+  token_type = "jwt", token = Sys.getenv("SHINYPROXY_OIDC_ACCESS_TOKEN")
+)
 
 print(paste("Using Locale Encoding:",Sys.setlocale("LC_CTYPE","en_US.UTF-8")));