print method

R/blob_client_funcs.R

@@ -19,8 +19,6 @@
 #'
 #' For `list_blob_containers`, a list of such objects.
 #'
-#' For `delete_blob_container`, NULL on successful deletion.
-#'
 #' @seealso [storage_endpoint], [az_storage]
 #'
 #' @rdname blob_endpoint

R/file_client_funcs.R

@@ -17,8 +17,6 @@
 #'
 #' For `list_file_shares`, a list of such objects.
 #'
-#' For `delete_file_share`, NULL on successful deletion.
-#'
 #' @seealso [storage_endpoint], [az_storage]
 #'
 #' @rdname file_endpoint

R/storage.R

@@ -94,6 +94,22 @@ public=list(
     get_file_endpoint=function(key=self$list_keys()[1])
     {
         storage_endpoint(self$properties$primaryEndpoints$file, key=key)
+    },
+
+    print=function(...)
+    {
+        cat("<Azure resource ", self$type, "/", self$name, ">\n", sep="")
+
+        endp <- self$properties$primaryEndpoints
+        endp <- paste0("    ", names(endp), ": ", endp, collapse="\n")
+        cat("  Account type:", self$kind, "\n")
+        cat("  Endpoints:\n")
+        cat(endp, "\n")
+        cat("---\n")
+
+        cat(format_public_fields(self, exclude=c("subscription", "resource_group", "type", "name", "kind")))
+        cat(format_public_methods(self))
+        invisible(NULL)
     }
 ),
 

man/blob_endpoint.Rd

@@ -69,8 +69,6 @@ delete_blob_container(endpoint, ...)
 For \code{blob_container} and \code{create_blob_container}, an S3 object representing an existing or created container respectively.
 
 For \code{list_blob_containers}, a list of such objects.
-
-For \code{delete_blob_container}, NULL on successful deletion.
 }
 \description{
 Get, list, create, or delete blob containers.

man/file_endpoint.Rd

@@ -63,8 +63,6 @@ delete_file_share(endpoint, ...)
 For \code{file_share} and \code{create_file_share}, an S3 object representing an existing or created share respectively.
 
 For \code{list_file_shares}, a list of such objects.
-
-For \code{delete_file_share}, NULL on successful deletion.
 }
 \description{
 Get, list, create, or delete file shares.