R/arm_operations.R

In Azure/rAzureBatch: rAzureBatch

getBatchAccount <- function(batchAccount,
                            resourceGroup,
                            subscriptionId,
                            servicePrincipal,
                            verbose = FALSE){
  url <- paste0(servicePrincipal$resource, "subscriptions/", subscriptionId,
                "/resourceGroups/", resourceGroup,
                "/providers/Microsoft.Batch/batchAccounts/", batchAccount,
                "?api-version=2017-05-01")

  host <- httr::parse_url(servicePrincipal$resource)$hostname
  headers <- httr::add_headers(
    .headers = c(Host = host,
                 Authorization = servicePrincipal$checkAccessToken(),
                 `Content-type` = "application/json"))

  verboseObj <- NULL
  if (verbose) {
    verboseObj <- httr::verbose()
  }

  response <- httr::GET(
    url = url,
    headers,
    verboseObj,
    encode = "json"
  )

  httr::stop_for_status(response)
  httr::content(response)
}

getStorageKeys <- function(storageAccount,
                           resourceGroup,
                           subscriptionId,
                           servicePrincipal,
                           verbose = FALSE){
  url <- paste0(servicePrincipal$resource, "subscriptions/", subscriptionId,
                "/resourceGroups/", resourceGroup,
                "/providers/Microsoft.Storage/storageAccounts/", storageAccount,
                "/listkeys?api-version=2016-01-01")

  host <- httr::parse_url(servicePrincipal$resource)$hostname
  headers <- httr::add_headers(
    .headers = c(Host = host,
                 Authorization = servicePrincipal$checkAccessToken(),
                 `Content-type` = "application/json"))

  verboseObj <- NULL
  if (verbose) {
    verboseObj <- httr::verbose()
  }

  response <- httr::POST(
    url = url,
    headers,
    verboseObj,
    encode = "json"
  )

  httr::stop_for_status(response)
  httr::content(response)
}