stored object print methods

R/stored_acct.R

@@ -144,5 +144,12 @@ public=list(
     {
         secret_url <- self$get_sas_definition(sas_name)$sid
         call_vault_url(self$token, secret_url)$value
+    },
+
+    print=function(...)
+    {
+        cat("<managed storage account '", self$name, "'>\n", sep="")
+        cat("  account:", basename(self$resourceId), "\n")
+        invisible(self)
     }
 ))

R/stored_cert.R

@@ -173,5 +173,15 @@ public=list(
         pol <- self$do_operation(op, body=body, encode="json", version=NULL, http_verb="PATCH")
         self$policy <- pol
         pol
+    },
+
+    print=function(...)
+    {
+        cat("<certificate '", self$name, "'>\n", sep="")
+        cat("  version:", if(is.null(self$version)) "<default>" else self$version, "\n")
+        cat("  subject:", self$policy$x509_props$subject, "\n")
+        cat("  issuer:", self$policy$issuer$name, "\n")
+        cat("  valid for:", self$policy$x509_props$validity_months, "months\n")
+        invisible(self)
     }
 ))

R/stored_key.R

@@ -201,5 +201,14 @@ public=list(
             self$do_operation("unwrapkey", body=body, encode="json", http_verb="POST")$value)
 
         if(as_raw) out else rawToChar(out)
+    },
+
+    print=function(...)
+    {
+        cat("<cryptographic key '", self$name, "'>\n", sep="")
+        cat("  version:", if(is.null(self$version)) "<default>" else self$version, "\n")
+        cat("  type:", self$key$kty, "\n")
+        cat("  operations:", unlist(self$key$key_ops), "\n")
+        invisible(self)
     }
 ))

R/stored_object.R

@@ -57,6 +57,12 @@ public=list(
         url$path <- construct_path(self$type, self$name, version, op)
         url$query <- options
         call_vault_url(self$token, url, ...)
+    },
+
+    print=function(...)
+    {
+        cat("<vault stored object '", self$name, "'>\n")
+        invisible(self)
     }
 ))
 

R/stored_secret.R

@@ -90,5 +90,11 @@ public=list(
             )
         })
         do.call(rbind, lst)
+    },
+
+    print=function(...)
+    {
+        cat("<secret '", self$name, "'>\n", sep="")
+        invisible(self)
     }
 ))