R/container_operations.R

In Azure/rAzureBatch: rAzureBatch

ContainerOperations <- R6::R6Class("ContainerOperations",
    public = list(
      path = "/",
      authentication = NULL,
      client = NULL,
      apiVersion = NULL,
      initialize = function(client = NA, authentication = NA, apiVersion) {
        self$authentication <- authentication
        self$client <- client
        self$apiVersion <- apiVersion
      },
      listContainers = function(prefix = "", content = "parsed", ...) {
        query <- list('comp' = "list", 'prefix' = prefix)

        request <- AzureRequestV2$new(method = "GET",
                                    path = self$path,
                                    query = query)

        response <- self$client$execute(request)
        self$client$extractAzureResponse(response, content)
      },
      deleteContainer = function(containerName, content = "parsed", ...) {
        query <- list('restype' = "container")

        request <- AzureRequestV2$new(
          method = "DELETE",
          path = paste0(self$path, containerName),
          query = query
        )

        response <- self$client$execute(request)
        self$client$extractAzureResponse(response, content)
      },
      createContainer =
        function(containerName, content = "parsed", ...) {
          query <- list('restype' = "container")

          request <- AzureRequestV2$new(
            method = "PUT",
            path = paste0(self$path, containerName),
            query = query
          )

          response <- self$client$execute(request)
          self$client$extractAzureResponse(response, content)
        }
    )
)