use load_azure_token when listing graph logins

Author: hongooi73

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: AzureGraph
 Title: Simple Interface to 'Microsoft Graph'
-Version: 1.3.1
+Version: 1.3.1.9000
 Authors@R: c(
     person("Hong", "Ooi", , "[email protected]", role = c("aut", "cre")),
     person("Microsoft", role="cph")

NEWS.md

@@ -1,3 +1,7 @@
+# AzureGraph 1.3.1.9000
+
+- Minor backend fixes.
+
 # AzureGraph 1.3.1
 
 - Fix a bug in `ms_object$get_list_pager()` where the `default_generator` argument wasn't being used.

R/graph_login.R

@@ -205,11 +205,7 @@ list_graph_logins <- function()
     graph_logins <- load_graph_logins()
     logins <- sapply(graph_logins, function(tenant)
     {
-        sapply(tenant, function(hash)
-        {
-            file <- file.path(AzureR_dir(), hash)
-            ms_graph$new(token=readRDS(file))
-        }, simplify=FALSE)
+        sapply(tenant, function(hash) ms_graph$new(token=load_azure_token(hash)), simplify=FALSE)
     }, simplify=FALSE)
 
     logins