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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.