使用 R 从亚马逊产品 API 返回产品数据

Question

我想使用 R 从Amazon Product API 中提取产品信息。正如this thread 和Amazon's Signed Requests Helper 所建议的，我正在使用以下R 代码：

library("RCurl")

nvp <- list("Service"="AWSECommerceService",
            "Version"="2011-08-01",
            "AssociateTag"="PutYourAssociateTagHere",
            "Operation"="ItemSearch",
            "SearchIndex"="Books",
            "Keywords"="harry+potter",
            "Timestamp"="2020-02-26T11:25:14.000Z",
            "AWSAccessKeyId"="XXX")                    # "XXX" needs to be replaced by the Access Key

getURL(nvp)

# AWSECommerceService               2011-08-01  PutYourAssociateTagHere               ItemSearch                    Books             harry+potter 2020-02-26T11:25:14.000Z                      XXX 
#                  ""                       ""                       ""                       ""                       ""                       ""                       ""                       "" 

如您所见，getURL 函数只是返回空字符。经过数小时的搜索，无论我如何更改先前代码的参数，我仍然无法获得任何其他输出。

如何修改之前的代码以从亚马逊产品 API 返回产品数据？

Answer 1

查看您提供的Signed Requests Helper，示例url如下：

http://ecs.amazonaws.com/onca/xml?Service=AWSECommerceService&Version=2011-08-01&AssociateTag=PutYourAssociateTagHere&Operation=ItemSearch&SearchIndex=Books&Keywords=harry+potter

因此需要对您上面提供的 nvp 列表进行一些修改。这些变化是： 1.将每个参数放在一个字符串中（例如'Version = 2011-08-01'，而不是'version' = '2011-08-01' 2. 确保格式化映射（例如在示例 URL 中，Version 以 &，所以我们确保添加了这个。 3. 最后，我们需要一个基本 url 来粘贴它（这是服务之前的示例 url 中的所有内容）。

nvp = c("Service=AWSECommerceService",
       "&Version=2011-08-01",
       "&AssociateTag=PutYourAssociateTagHere",
       "&Operation=ItemSearch",
       "&SearchIndex=Books",
       "&Keywords=harry+potter",
      "&Timestamp=2020-02-26T11:25:14.000Z",
      "&AWSAccessKeyId = XXX")
base_url = "http://ecs.amazonaws.com/onca/xml?"

然后我们需要将 base_url 和 nvp 粘贴在一起来制作我们的 url

amazon_url = paste0(base_url, paste(nvp, collapse=''))

这给出了我们可以传递给 getURL 的 url。如果您传递关联标签/AWS 访问密钥 ID，这些应该可以工作，我目前收到“必须包含 AWS 访问密钥 ID 错误”。

[这显然是一种非常手动的方法，如果您想在搜索方面更加程序化，您可以这样做：

AWSAccessKeyID = '1234'
keywords = 'harry+potter'

这些可以传递给粘贴，稍作修改

nvp = list("Service=AWSECommerceService",
               "&Version=2011-08-01",
               "&AssociateTag=PutYourAssociateTagHere",
               "&Operation=ItemSearch",
               "&SearchIndex=Books",
               "&Keywords=", keywords,
               "&Timestamp=2020-02-26T11:25:14.000Z",
               "&AWSAccessKeyId=" AWSAccessKeyID 
                )
amazon_url = paste0(base_url, paste(nvp, collapse=''))

]