add delete method for blob container

R/blob_client_funcs.R

@@ -139,6 +139,13 @@ delete_blob_container.character <- function(endpoint, key=NULL, sas=NULL,
     delete_blob_container(endp$endpoint, endp$name, ...)
 }
 
+#' @rdname blob_endpoint
+#' @export
+delete_blob_container.blob_container <- function(endpoint, ...)
+{
+    delete_blob_container(endpoint$endpoint, endpoint$name, ...)
+}
+
 #' @rdname blob_endpoint
 #' @export
 delete_blob_container.blob_endpoint <- function(endpoint, name, confirm=TRUE, lease=NULL)