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

---
 container-Rprofile.site | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/container-Rprofile.site b/container-Rprofile.site
index a2603f1..1e67a0e 100644
--- a/container-Rprofile.site
+++ b/container-Rprofile.site
@@ -33,4 +33,11 @@ local({r <- getOption("repos")
 
 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("SHINYPROXY_OIDC_ACCESS_TOKEN")
+)
+
 print(paste("Using Locale Encoding:",Sys.setlocale("LC_CTYPE","en_US.UTF-8")));