在 R 中使用 httr POST 到 API 会导致错误答案

【问题标题】：POST to API using httr in R results in error在 R 中使用 httr POST 到 API 会导致错误
【发布时间】：2018-08-02 23:50:28
【问题描述】：

我正在尝试使用 httr 包将数据直接从 API 提取到 R 中。 API 不需要任何身份验证，并接受 lat、long、elevation、变量集和时间段的 JSON 字符串来估计任何位置的气候变量。这是我第一次使用 API，但下面的代码是我从各种 Stack Overflow 帖子中拼凑而成的。

library(jsonlite)
library(httr)    
url = "http://apibc.climatewna.com/api/clmApi"
body <- data.frame(lat = c(48.98,50.2), ##two example locations
                   lon = c(-115.02, -120),
                   el = c(1000,100),
                   prd = c("Normal_1961_1990.nrm","Normal_1961_1990.nrm"),
                   varYSM = c("Y","SST"))
requestBody <- toJSON(list("output" = body),auto_unbox = TRUE) ##convert to JSON string

result <- POST("http://apibc.climatewna.com/api/clmApi", ##post to API
               body = requestBody,
               add_headers(`Content-Type`="application/json"))
content(result)

我尝试了各种不同的版本（例如手动编写 JSON 字符串，将正文作为列表放入 POST 中，encode = "json"），它始终运行，但内容始终包含以下错误消息：

$Message
[1] "An error has occurred."

$ExceptionMessage
[1] "Object reference not set to an instance of an object."

$ExceptionType
[1] "System.NullReferenceException"

如果我使用 GET 并直接在 URL 中指定变量

url = "http://apibc.climatewna.com/api/clmApi/LatLonEl?lat=48.98&lon=-115.02&el=1000&prd=Normal_1961_1990&varYSM=Y"
result <- GET(url)
content(result)

它会产生正确的输出，但是我一次只能获取一个位置的信息。目前没有任何关于这个 API 的公共文档，因为它很新，但我附上了使用 JS 下面解释它的部分草稿。我非常感谢任何关于我正在做的事情的帮助/建议错误的！谢谢！

【问题讨论】：

API 是否记录在某处？网上好像找不到
不 - 这是一个非常新的开发，尚未正式发布。这是一个用于 ClimateBC 的 API，作为桌面应用已经存在了几年。

标签： r post httr jsonlite

【解决方案1】：

主要问题是jQuery.ajax 在将数据发送到 API 之前使用jQuery.param 对数据进行编码，因此它发送的内容类似于[0][lat]=48.98&[0][lon]=-115.02...。我不知道 R 中有一个包与jQuery.param 进行类似的编码，所以我们必须一起破解一些东西。

稍微修改你的例子：

library(httr)
body <- data.frame(lat = c(48.98,50.2), ##two example locations
                   lon = c(-115.02, -120),
                   el = c(1000,100),
                   prd = c("Normal_1961_1990","Normal_1961_1990"),
                   varYSM = c("Y","Y"))

现在，我们进行编码，如下所示：

out <- sapply(1:nrow(body), function(i) {
  paste(c(
    paste0(sprintf("[%d][lat]", i - 1), "=", body$lat[i]),
    paste0(sprintf("[%d][lon]", i - 1), "=", body$lon[i]),
    paste0(sprintf("[%d][el]", i - 1), "=", body$el[i]),
    paste0(sprintf("[%d][prd]", i - 1), "=", body$prd[i]),
    paste0(sprintf("[%d][varYSM]", i - 1), "=", body$varYSM[i])
  ), collapse = "&")
})
out <- paste(out, collapse = "&")

所以现在out 采用了 API 喜欢的形式。终于

result <- POST(url = "http://apibc.climatewna.com/api/clmApi", ##post to API
               body = out,
               add_headers(`Content-Type`="application/x-www-form-urlencoded"))

注意Content-Type。我们得到

df <- do.call(rbind, lapply(content(result), as.data.frame, stringsAsFactors = FALSE))
str(df)
# 'data.frame': 2 obs. of  29 variables:
#  $ lat    : chr  "48.98" "50.2"
#  $ lon    : chr  "-115.02" "-120"
#  $ elev   : chr  "1000" "100"
#  $ prd    : chr  "Normal_1961_1990" "Normal_1961_1990"
#  $ varYSM : chr  "Y" "Y"
#  $ MAT    : chr  "5.2" "8"
#  $ MWMT   : chr  "16.9" "20.2"
#  $ MCMT   : chr  "-6.7" "-5.6"
#  $ TD     : chr  "23.6" "25.7"
#  $ MAP    : chr  "617" "228"
#  $ MSP    : chr  "269" "155"
#  $ AHM    : chr  "24.7" "79.1"
#  $ SHM    : chr  "62.9" "130.3"
#  $ DD_0   : chr  "690" "519"
#  $ DD5    : chr  "1505" "2131"
#  $ DD_18  : chr  "4684" "3818"
#  $ DD18   : chr  "60" "209"
#  $ NFFD   : chr  "165" "204"
#  $ bFFP   : chr  "150" "134"
#  $ eFFP   : chr  "252" "254"
#  $ FFP    : chr  "101" "120"
#  $ PAS    : chr  "194" "34"
#  $ EMT    : chr  "-36.3" "-32.7"
#  $ EXT    : chr  "37.1" "41.2"
#  $ Eref   : chr  "14.7" "13.6"
#  $ CMD    : chr  "721" "862"
#  $ MAR    : chr  "347" "679"
#  $ RH     : chr  "57" "57"
#  $ Version: chr  "ClimateBC_API_v5.51" "ClimateBC_API_v5.51"

【讨论】：