add another create_blob_cont method

NAMESPACE

@@ -2,6 +2,7 @@
 
 S3method(blob_container,blob_endpoint)
 S3method(blob_container,character)
+S3method(create_blob_container,blob_container)
 S3method(create_blob_container,blob_endpoint)
 S3method(create_blob_container,character)
 S3method(create_file_share,character)

R/blob_client_funcs.R

@@ -129,6 +129,13 @@ create_blob_container.character <- function(endpoint, key=NULL, sas=NULL,
     create_blob_container(endp$endpoint, endp$name, ...)
 }
 
+#' @rdname blob_container
+#' @export
+create_blob_container.blob_container <- function(endpoint, ...)
+{
+    create_blob_container(endpoint$endpoint, endpoint$name)
+}
+
 #' @rdname blob_container
 #' @export
 create_blob_container.blob_endpoint <- function(endpoint, name, public_access=c("none", "blob", "container"), ...)

man/blob_container.Rd

@@ -10,6 +10,7 @@
 \alias{list_blob_containers.blob_endpoint}
 \alias{create_blob_container}
 \alias{create_blob_container.character}
+\alias{create_blob_container.blob_container}
 \alias{create_blob_container.blob_endpoint}
 \alias{delete_blob_container}
 \alias{delete_blob_container.character}
@@ -40,6 +41,8 @@ create_blob_container(endpoint, ...)
   sas = NULL, api_version = getOption("azure_storage_api_version"),
   ...)
 
+\method{create_blob_container}{blob_container}(endpoint, ...)
+
 \method{create_blob_container}{blob_endpoint}(endpoint, name,
   public_access = c("none", "blob", "container"), ...)