R/AzureQstor.R

In AzureQstor: Interface to 'Azure Queue Storage'

#' @import AzureStor
#' @import AzureRMR
NULL

utils::globalVariables(c("self", "private"))

.onLoad <- function(libname, pkgname)
{
    AzureStor::az_storage$set("public", "get_queue_endpoint", overwrite=TRUE,
    function(key=self$list_keys()[1], sas=NULL, token=NULL)
    {
        queue_endpoint(self$properties$primaryEndpoints$queue, key=key, sas=sas, token=token)
    })
}


# assorted imports of friend functions
delete_confirmed <- getNamespace("AzureStor")$delete_confirmed

is_endpoint_url <- getNamespace("AzureStor")$is_endpoint_url

generate_endpoint_container <- getNamespace("AzureStor")$generate_endpoint_container

get_classic_metadata_headers <- getNamespace("AzureStor")$get_classic_metadata_headers

set_classic_metadata_headers <- getNamespace("AzureStor")$set_classic_metadata_headers