From 2b8602df5f550d074e8b2989bb48b709526c3ccd Mon Sep 17 00:00:00 2001 From: eblondel Date: Tue, 26 Nov 2024 09:07:33 +0100 Subject: [PATCH] fix iniAuthSessionVariables --- assets/auth_utils.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/assets/auth_utils.R b/assets/auth_utils.R index 72d4446..5c7fcaf 100644 --- a/assets/auth_utils.R +++ b/assets/auth_utils.R @@ -3,7 +3,7 @@ initAuthSessionVariables <- function(session, auth_info){ session$userData$GEOFLOW_SHINY_AUTH_URL = auth_info$endpoint$auth_url session$userData$GEOFLOW_SHINY_AUTH_USER = auth_info$user - if(!is.na(auth_info$backend) && !is.na(auth_info$service)){ + if(!is.null(auth_info$backend) && !is.null(auth_info$service)){ session$userData$GEOFLOW_SHINY_AUTH_PWD = auth_info$backend$get(service = auth_info$service, username = auth_info$user) } if(!is.na(auth_info$token)) session$userData$GEOFLOW_SHINY_AUTH_TOKEN = auth_info$token