Only attempts to authenticate if is.activeAzureContect() is TRUE #46

microsoft · Feb 12, 2017 · 1d3946f · 1d3946f
1 parent dbd313b
commit 1d3946f
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/AzureAuthenticate.R b/R/AzureAuthenticate.R
@@ -70,12 +70,13 @@ azureAuthenticate <- function(azureActiveContext, tenantID, clientID, authKey, v
 #' @family Resources
 #' @export
 azureCheckToken <- function(azureActiveContext) {
+  if (missing(azureActiveContext) || is.null(azureActiveContext)) return(NA)
   if (is.null(azureActiveContext$EXPIRY))
     stop("Not Authenticated: Use azureAuthenticate")
 
   if (azureActiveContext$EXPIRY < Sys.time()) {
     message("Azure Token Expired: Attempting automatic renewal")
     azureAuthenticate(azureActiveContext)
   }
-  return("OK")
+  return(TRUE)
 }