我目前正在处理来自在线数据库的数据。我通过 API 访问数据，这在我一次检索所有数据时起作用。但这会使我的系统变慢，所以我只想对过滤后的数据发出请求（直到现在我才发出请求）。这是获取整个数据集的方法：
#-------------------------------#
# packages #
#-------------------------------#
library(httr)
library(jsonlite)
#-------------------------------#
# API requests #
#-------------------------------#
## get all data at once ##
url <- "https://www.eter-project.com/api/3.0/HEIs/full"
raw_result <- GET(url)
#-------------------------------#
# data processing #
#-------------------------------#
# 'status_code' (if request worked) and 'content' (APIs answer) important
names(raw_result)
# '200' tells us that server received request
raw_result$status_code
# translate Unicode into text
this.raw.content <- rawToChar(raw_result$content)
# transform json into workable format for R
mydata <- fromJSON(this.raw.content, flatten = TRUE)
class(mydata)
dim(mydata)
根据文档（https://www.eter-project.com/api/doc/#/），我需要使用 urlhttps://www.eter-project.com/api/3.0/HEIs/query和嵌入在以下结构中的过滤器的 POST 请求：
{
"filter": {},
"fieldIds": {}
}
我想过滤年份和国家/地区，以便仅获取我当前想要使用的数据。过滤器的结构是{ "BAS.REFYEAR.v": 2011, "BAS.COUNTRY.v": "AT"}.
有谁知道，我如何将其实现到 POST 请求中？
直到现在，我做了一些绝望的尝试，将过滤器包含到 POST 请求中（例如raw_result <- POST(url, body = list({ "filter": {"BAS.REFYEAR.v" = 2011}}), encode = "json")，玩弄mongolite包，这甚至还没有结束。
更新：过滤问题已解决。我使用了以下解决方案：
myquery <- '{
"filter": {"BAS.REFYEAR.v": 2015, "BAS.COUNTRY.v": "LV"},
"fieldIds": {},
"searchTerms": []
}'
url <- "https://www.eter-project.com/api/3.0/HEIs/query"
raw_result <- POST(url, body = myquery, content_type_json())
现在，我面临另一个问题：数据中包含许多特殊字符，这些字符在 R 中无法正确显示（例如Alberta koledža，在数据集中显示为Alberta koledžainR）。有没有办法解决这个问题，例如在请求调用中使用 UTF-8？
您可以尝试将所需的 JSON 构建为列表列表。但是，我发现显式提供 JSON 并手动添加内容类型更容易：
query <- '{
"filter": { "BAS.REFYEAR.v": 2011, "BAS.COUNTRY.v": "AT"},
"fieldIds": {},
"searchTerms": []
}'
url <- "https://www.eter-project.com/api/3.0/HEIs/query"
raw_result <- httr::POST(url = url, body = query, content_type_json())
在此之后，您可以像以前一样应用您的处理。
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
我来说两句