storage fixing

R/storage_accounts.R

@@ -54,8 +54,7 @@ public=list(
             acct <- call_vault_url(self$token, props$id)
             stored_account$new(self$token, self$url, name, NULL, acct)
         })
-        names(lst) <- sapply(lst, function(x) basename(x$id))
-        lst
+        named_list(lst)
     },
 
     backup=function(name)

R/stored_acct.R

@@ -51,9 +51,14 @@ public=list(
         self$do_operation(op)
     },
 
+    list_sas_definitions=function()
+    {
+        get_vault_paged_list(self$do_operation("sas"), self$token)
+    },
+
     show_sas=function(sas_name)
     {
-        secret_url <- self$get_sas_definition(self$name, sas_name)$sid
+        secret_url <- self$get_sas_definition(sas_name)$sid
         call_vault_url(self$token, secret_url)$value
     }
 ))