From e9911e51866d57f2b8d59a2b31500d83b2f74263 Mon Sep 17 00:00:00 2001 From: Hong Ooi Date: Wed, 3 Apr 2019 14:18:13 +1100 Subject: [PATCH] fix vault_access_policy --- R/az_vault.R | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/R/az_vault.R b/R/az_vault.R index bed4359..faa126c 100644 --- a/R/az_vault.R +++ b/R/az_vault.R @@ -102,7 +102,8 @@ vault_access_policy <- function(principal, tenant=NULL, permissions=list( keys=I(key_permissions), secrets=I(secret_permissions), - certificates=I(certificate_permissions) + certificates=I(certificate_permissions), + storage_permissions=I(storage_permissions) ) ) class(obj) <- "vault_access_policy" @@ -113,14 +114,16 @@ vault_access_policy <- function(principal, tenant=NULL, #' @export print.vault_access_policy <- function(x, ...) { - cat("Tenant:", x$tenantId, "\n") - cat("Principal:", if(is.null(x$objectId)) "" else x$objectId, "\n") + cat("Tenant:", if(is.null(x$tenantId)) "" else x$tenantId, "\n") + cat("Principal:", x$objectId, "\n") cat("Key permissions:\n") cat(strwrap(paste(x$permissions$keys, collapse=", "), indent=4, exdent=4), sep="\n") cat("Secret permissions:\n") cat(strwrap(paste(x$permissions$secrets, collapse=", "), indent=4, exdent=4), sep="\n") cat("Certificate permissions:\n") cat(strwrap(paste(x$permissions$certificates, collapse=", "), indent=4, exdent=4), sep="\n") + cat("Storage account permissions:\n") + cat(strwrap(paste(x$permissions$storage_permissions, collapse=", "), indent=4, exdent=4), sep="\n") cat("\n") invisible(x) }