Merge pull request #29 from PaulC91/master

Add check for Shinyproxy username HTTP header
dreamRs · Oct 16, 2024 · 958fff1 · 958fff1
2 parents 2278a01 + e5013ac
commit 958fff1
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -16,6 +16,8 @@ is_sqlite <- function(path) {
 get_user_ <- function(session) {
   if (!is.null(session$user))
     return(session$user)
+  if (!is.null(session$request$HTTP_X_SP_USERID))
+    return(session$request$HTTP_X_SP_USERID)
   user <- Sys.getenv("SHINYPROXY_USERNAME")
   if (!identical(user, "")) {
     return(user)