R/AzureStor.R

In AzureStor: Storage Management in 'Azure'

#' @import AzureRMR
#' @importFrom utils URLencode modifyList packageVersion glob2rx
NULL

globalVariables(c("self", "pool"), "AzureStor")

.AzureStor <- new.env()


.onLoad <- function(libname, pkgname)
{
    set_option <- function(name, value)
    {
        if(is.null(getOption(name)))
            options(structure(list(value), names=name))
    }

    set_option("azure_storage_api_version", "2021-06-08")
    set_option("azure_storage_progress_bar", TRUE)
    set_option("azure_storage_retries", 10)

    # all methods extending classes in external package must be run from .onLoad
    add_methods()
}