From aa583946bf0990104e73ec504eaec45a0216c994 Mon Sep 17 00:00:00 2001 From: zerweck Date: Thu, 20 Jun 2019 20:04:39 +0200 Subject: [PATCH] minor fixes in 'Pushing output files' example The `sharedKeys` object is not necessary to select the `storageAccount` object. Also, the `storageAccountName` is already an object in this script, but was referred as a string. --- docs/72-persistent-storage.md | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/docs/72-persistent-storage.md b/docs/72-persistent-storage.md index 0f114c89..79d2d195 100644 --- a/docs/72-persistent-storage.md +++ b/docs/72-persistent-storage.md @@ -40,8 +40,8 @@ doAzureParallel::setCredentials("credentials.json") config <- rjson::fromJSON(file = paste0("credentials.json")) storageCredentials <- rAzureBatch::SharedKeyCredentials$new( - name = config$sharedKey$storageAccount$name, - key = config$sharedKey$storageAccount$key + name = config$storageAccount$name, + key = config$storageAccount$key ) storageAccountName <- storageCredentials$name @@ -56,12 +56,11 @@ storageClient <- rAzureBatch::StorageServiceClient$new( ) # Pushing output files -storageAccount <- "storageAccountName" outputFolder <- "outputs" storageClient$containerOperations$createContainer(outputFolder) writeToken <- storageClient$generateSasToken("w", "c", outputFolder) -containerUrl <- rAzureBatch::createBlobUrl(storageAccount = storageAccount, +containerUrl <- rAzureBatch::createBlobUrl(storageAccount = storageAccountName, containerName = outputFolder, sasToken = writeToken)