Создать таблицу в Azure Хранилище таблиц, используя REST API из R - PullRequest
Новая
       5

Создать таблицу в Azure Хранилище таблиц, используя REST API из R

0 голосов
/ 31 января 2020

Я работаю над Azure Блоками данных в записной книжке R, и для записи метаданных, сгенерированных моим R-кодом, я пытаюсь подключиться / прочитать / записать в / из / в Azure Table Storage Service.

Здесь Я узнал, как получить доступ и прочитать таблицу (с именем "myTable), которая с некоторыми изменениями работает нормально. Вот что я сделал: 

 key <- <myKey>
 account <- <myAccount>

 url <- paste0("https://", account, ".table.core.windows.net/myTable()")
 requestdate <- format(Sys.time(),"%a, %d %b %Y %H:%M:%S %Z", tz="GMT")
 #content_length <- 0

 signature_string <- paste0("GET", "\n",            # HTTP Verb
                       "\n",                   # Content-MD5
                       "text/plain", "\n",     # Content-Type
                       requestdate, "\n",                   # Date
                       # Here comes the Canonicalized Resource
                       "/",account, "/","myTable()" )

 header <- add_headers(Authorization=paste0("SharedKey ",account,":", 
                                            RCurl::base64(digest::hmac(key = 
                                                                         RCurl::base64Decode(key, mode = "raw"),
                                                                       object = enc2utf8(signature_string),
                                                                       algo = "sha256", raw = TRUE))),
                       `x-ms-date`= requestdate,
                       `x-ms-version`= "2015-02-21",
                       `Content-Type`="text/plain")

 GET(url, config = header, verbose()) -> res

Теперь я хотел бы создать еще одну таблицу, а также добавить новые сущности в существующие таблицы. Я принял вышеуказанный подход и изменил его на 

 url <- paste0("https://", account, ".table.core.windows.net/TABLES")
 requestdate <- format(Sys.time(),"%a, %d %b %Y %H:%M:%S %Z", tz="GMT")

 signature_string <- paste0("POST", "\n",            # HTTP Verb
                       "\n",                   # Content-Encoding  
                       "\n",                   # Content-Language
                       content_length, "\n",   # Content-Length
                       "\n",                   # Content-MD5
                       "application/json", "\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, "/","TABLES")

 header <- add_headers(Authorization=paste0("SharedKey ",account,":", 
                                            RCurl::base64(digest::hmac(key = 
                                                                         RCurl::base64Decode(key, mode = "raw"),
                                                                       object = enc2utf8(signature_string),
                                                                       algo = "sha256", raw = TRUE))),
                       `x-ms-date`= requestdate,
                      # `x-ms-version`= "2015-02-21",
                       `Content-Type`="application/json",
                       `Content-Length`=100)

 body <- paste0("{", "\n",
                       "'TableName':'newTable'",  "\n",                          
           "}")

 POST(url = url, config = header, body = body, encode = "json", handle = NULL) -> res

Запуск, который дает мне статус 403. Точное сообщение: 

  Response [https://myAccount.table.core.windows.net/TABLES]
  Date: 2020-01-31 18:47
  Status: 403
  Content-Type: application/json
  Size: 437 B

AuthenticationFailed Серверу не удалось проверить подлинность запроса. Сделать S ... RequestId: 9bc35a5f-c002-1666-d88043000000 Время: 2020-01-31T18: 47: 36.6598228Z

Я часами безуспешно играл с входными данными в signature_string. Также я пробовал разные определения тела, например 

 request_body <- data.frame(TableName = "access")
 body <- jsonlite::toJSON(request_body, auto_unbox = T)

Я не уверен в следующих входных данных: Content-Length, Content-Type, x -ms-version, request-body и пропускаю ли я что-нибудь еще.

Может кто-нибудь дать мне совет, как написать правильный заголовок для создания новых таблиц и добавления новых сущностей. Если есть более элегантный способ, это было бы Также высоко ценю.

...