r - RからAmazon Product Advertising API 5を呼び出す方法は?

Question

R から Amazon 商品広告 API を呼び出したいと考えています。以下に、pa API 5 のクイック ガイドを示します。

https://webservices.amazon.com/paapi5/documentation/quick-start/using-curl.html

「httr」を使用してhttps://webservices.amazon.com/paapi5/documentation/sending-request.htmlで説明されている方法を実行しようとしましたが、署名バージョン 4 の署名プロセスで失敗しました。

POST 関数を呼び出す前に、署名に「aws.signature」パッケージを使用してみましたが、最終的な出力はステータス コード 500 です。

これが私が使用したコードです

library(httr)
library(jsonlite)
library(aws.signature)
request_body=data.frame("Keywords"="Harry",
                        "Marketplace"= "www.amazon.com",
                        "PartnerTag"= "mytag-20",
                        "PartnerType"= "Associates",
                        "Access Key"="my_accesskey",
                        "Secret Key"="my_secret_key",
                        "service"="ProductAdvertisingAPIv1",                        
                        "Region"="us-east-1"
                        "Resources"="Offers.Listings.Price",
                        "SearchIndex"= "All")
request_body_json=toJSON(request_body,auto_unbox=T)
request_body_json=gsub("\\[|\\]","",request_body_json)

t=signature_v4_auth(
  datetime = format(Sys.time(), "%Y%m%dT%H%M%SZ", tz = "UTC"),
  region = NULL,
  service="ProductAdvertisingAPIv1",
  verb="POST",
  "com.amazon.paapi5.v1.ProductAdvertisingAPIv1.SearchItems",
  query_args = list(),
  canonical_headers=c("Host: webservices.amazon.com",
                       "Content-Type: application/json; charset=UTF-8",                       
                       "X-Amz-Target: com.amazon.paapi5.v1.ProductAdvertisingAPIv1.SearchItems",
                       "Content-Encoding: amz-1.0",
                       "User-Agent: paapi-docs-curl/1.0.0"),
  request_body=request_body_json,
  signed_body = TRUE,
  key = "access_key",
  secret = "secret-key",
  session_token = NULL,
  query = FALSE,
  algorithm = "AWS4-HMAC-SHA256",
  force_credentials = FALSE,
  verbose = getOption("verbose", FALSE)
)

result=POST("https://webservices.amazon.com/paapi5/searchitems",body=request_body_json,
            add_headers(.headers=c("Host: webservices.amazon.com",
              "Content-Type: application/json; charset=UTF-8",
                                   paste("X-Amz-Date:",format(Sys.time(), "%Y%m%dT%H%M%SZ", tz = "UTC")),
                                   "X-Amz-Target: com.amazon.paapi5.v1.ProductAdvertisingAPIv1.SearchItems",
                                   "Content-Encoding: amz-1.0",
                                   "User-Agent: paapi-docs-curl/1.0.0",
                                   paste0("Authorization: AWS4-HMAC-SHA256 Credential=",t[["Credential"]],"SignedHeaders=content-encoding;host;x-amz-date;x-amz-target Signature=",t[["Signature"]])
            )))

誰かがこれを手伝ってくれるなら、それを感謝します。ありがとう