Azure Machine LearningのRスクリプトのブロブストレージ内のファイルにアクセス（読み書き）する簡単な方法は何ですか？Azure Machine LearningのRスクリプトのブロブストレージにあるファイルにアクセスできますか？
azureモジュールを使用してPythonスクリプトでBLOBストレージ内のファイルにアクセスできますが、Rスクリプトで簡単にアクセスする方法はないようです。
私は、任意の提案やヘルプは高く評価され
https://github.com/Microsoft/AzureSMR
、RスクリプトのzipファイルとしてAzureのSMRをインポートしようとしましたが、すべての依存関係をインポートすることは非常にタフな仕事です。
Azure MLに& Rパッケージをインストールする方法を知っていたようです。そうでない場合は、文書Installing R package in Azure Machine Learning and use R packageを参照してもう一度お試しください。
私の経験では、Rパッケージは、Azure Storageを使用するためだけでなく、リソース管理用に設計されていると思います。だからAzure MLで使うのは良い考えではなく、そのAPIを使ってコードを作れるようにAzure ADにアプリを登録するなど、もっと多くの作業をする必要があります。
Azure MLのExecute R ScriptのRパッケージhttrを使用してthe REST APIs of Azure Blob Storageを使用しようとしています。 SOスレッドAzure PUT Blob authentication fails in Rを参照して、これを行う方法を知ることができます。一方、のソースコードは、&を再利用してこれらの共通機能を認証またはBLOB CRUD操作を行うために書き直す上で非常に貴重です。
希望します。どんな心配も、私に知らせてください。
あなたの提案、Perter Panありがとうございます。私はしかしAzure PUT Blob authentication fails in R
を追っ
、スクリプトが失敗する実行されます。 エラーメッセージは、私は問題がhttpsのアクセスに関連して考え
error:1411809D:SSL routines:SSL_CHECK_SERVERHELLO_TLSEXT:tls invalid
ecpointformat list
ました。 （AzureのMLでBLOBストレージにアクセスするためのPythonスクリプトを使用しているとき、私はまたAccess Azure blog storage from within an Azure ML experimentが続いていたので、私はこれを書く）
私はR見つかり同じ問題がそれでは Error:1411809D:SSL routines - When trying to make https call from inside R module in AzureML
で、私は、HTTPSを変更http。 しかし、スクリプトはBLOBストレージに何度もアクセスしようとし、決して実行を終了しません。 Azureポータルのストレージで要求数が非常に増えていることがわかります。
私のコードは、実際に要求URLがスクリプトは打撃であるHTTP
に変更することを除いてAzure PUT Blob authentication fails in R に似ています。
library(httr)
account <- "accountname"
container <- "containrname"
filename <- "test.txt"
key <- "8FS+3i9eXx....r54Gl97F0nVwyDcV7lXbcWhmQ=="
object <- "Hello World"
url <- paste0("http://", account, ".blob.core.windows.net/", container,
"/", filename)
requestdate <- format(Sys.time(),"%a, %d %b %Y %H:%M:%S %Z", tz="GMT")
content_length <- nchar(object, type = "bytes")
signature_string <- paste0("PUT", "\n", # HTTP Verb
"\n", # Content-Encoding
"\n", # Content-Language
content_length, "\n", # Content-Length
"\n", # Content-MD5
"text/plain", "\n", # Content-Type
"\n", # Date
"\n", # If-Modified-Since
"\n", # If-Match
"\n", # If-None-Match
"\n", # If-Unmodified-Since
"\n", # Range
# Here comes the Canonicalized Headers
"x-ms-blob-type:BlockBlob","\n",
"x-ms-date:",requestdate,"\n",
"x-ms-version:2015-02-21","\n",
# Here comes the Canonicalized Resource
"/",account, "/",container,"/", filename)
headerstuff <- add_headers(Authorization=paste0("SharedKey
",account,":",
RCurl::base64(digest::hmac(key =
RCurl::base64Decode(key, mode = "raw"),
object = enc2utf8(signature_string),
algo = "sha256", raw = TRUE))),
`Content-Length` = content_length,
`x-ms-date`= requestdate,
`x-ms-version`= "2015-02-21",
`x-ms-blob-type`="BlockBlob",
`Content-Type`="text/plain")
content(PUT(url, config = headerstuff, body = object, verbose()), as =
"text")