See #24680. load the jwt token in the Rprofile

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")));