我正在尝试让 RapidAPI 的 API R 代码工作。
他们提供的代码如下(示意图):
library(httr)
GET(
url = rapidapi_url,
config = list(x-rapidapi-key = API_KEY,
x-rapidapi-host = HOST_URL,
useQueryString = TRUE),
inboundpartialdate = "2019-12-01"
)
此代码不起作用,因为(开始)变量包含减号。
我将代码更改为以下格式
#Define Constants
x_rapidapi_key <- xyz # defined higher up in the script for confidentiality reasons and works in rapidapi.com
HTML_link <- "https://yh-finance.p.rapidapi.com/stock/v3/get-historical-data"
YH_file_type = "json"
#' Paste the get_text together
get_text <- paste(HTML_link,
"?q=TTF",
"&x-rapidapi-host:",x_rapidapi_host,
"&x-rapidapi-key:",x_rapidapi_key,
"&out=",YH_file_type,sep="")
httr::GET(get_text)
运行此脚本时,我收到 401 错误,尽管当我在 RapidAPI 中测试 api-key 时一切正常。
Response [https://yh-finance.p.rapidapi.com/stock/v3/get-historical-data?q=TTF&x-rapidapi-host:yh-finance.p.rapidapi.com&x-rapidapi-key:xyz&out=json]
Date: 2021-11-08 14:16
Status: 401
Content-Type: application/json
Size: 91 B
我在响应中编辑了 api-key。
请参阅下面的相同内容的另一个变体:
library(httr)
url <- "https://yh-finance.p.rapidapi.com/stock/v3/get-historical-data"
queryString <- list(
symbol = "TTF=F",
region = "US"
)
response <- VERB("GET",
url,
add_headers(x_rapidapi_host = 'yh-finance.p.rapidapi.com',
x_rapidapi_key = 'xyz'),
query = queryString,
content_type("application/octet-stream"))
response
content(response, "text")
有谁知道如何使这项工作?
谢谢您的帮助,
迈克尔