使用密钥连接到 R 中的 Rest API答案

【问题标题】：Connect to Rest API in R with key使用密钥连接到 R 中的 Rest API
【发布时间】：2017-12-23 12:03:07
【问题描述】：

这是一个简单的问题，但我仍然无法弄清楚。我想使用我的 API 密钥连接到 REST API。我查看了httr、jsonlite 和其他人的文档，但仍然无法弄清楚如何设置 API 密钥。

这是端点 - https://api.tiingo.com/tiingo/daily//prices?startDate=2012-1-1&endDate=2016-1-1?

我已尝试在此 URL 上使用 GET 函数，并在调用中将我的 API 密钥指定为 key。我也试过api_key = key。我总是收到 401 错误。

谢谢

【问题讨论】：

在这里查看我对类似问题的回答：stackoverflow.com/questions/40289067/…

标签： r json rest get tiingo

【解决方案1】：

API 需要一个 Authorization 标头，其中包含 Token yOuRAsSiGnEdT0k3n。您应该将令牌存储在环境变量之类的东西中，这样它就不会卡在脚本中。我使用了TIINGO_TOKEN，并把它放入~/.Renviron。

你可以创建一个辅助函数来减少调用的麻烦：

library(httr)
library(jsonlite)
library(tidyverse)
library(hrbrthemes)

get_prices <- function(ticker, start_date, end_date, token=Sys.getenv("TIINGO_TOKEN")) {

  GET(
    url = sprintf("https://api.tiingo.com/tiingo/daily/%s/prices", ticker),
    query = list(
      startDate = start_date,
      endDate = end_date
    ),
    content_type_json(),
    add_headers(`Authorization` = sprintf("Token %s", token))
  ) -> res

  stop_for_status(res)

  content(res, as="text", encoding="UTF-8") %>%
    fromJSON(flatten=TRUE) %>%
    as_tibble() %>%
    readr::type_convert()

}

现在，你可以传入参数了：

xdf <- get_prices("googl", "2012-1-1", "2016-1-1")

glimpse(xdf)
## Observations: 1,006
## Variables: 13
## $ date        <dttm> 2012-01-03, 2012-01-04, 2012-01-05, 2012-01-06, 2...
## $ close       <dbl> 665.41, 668.28, 659.01, 650.02, 622.46, 623.14, 62...
## $ high        <dbl> 668.15, 670.25, 663.97, 660.00, 647.00, 633.80, 62...
## $ low         <dbl> 652.3700, 660.6200, 656.2300, 649.7900, 621.2300, ...
## $ open        <dbl> 652.94, 665.03, 662.13, 659.15, 646.50, 629.75, 62...
## $ volume      <int> 7345600, 5722200, 6559200, 5380400, 11633500, 8782...
## $ adjClose    <dbl> 333.7352, 335.1747, 330.5253, 326.0164, 312.1937, ...
## $ adjHigh     <dbl> 335.1095, 336.1627, 333.0130, 331.0218, 324.5017, ...
## $ adjLow      <dbl> 327.1950, 331.3328, 329.1310, 325.9010, 311.5768, ...
## $ adjOpen     <dbl> 327.4809, 333.5446, 332.0901, 330.5955, 324.2509, ...
## $ adjVolume   <int> 3676476, 2863963, 3282882, 2692892, 5822572, 43955...
## $ divCash     <dbl> 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,...
## $ splitFactor <dbl> 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,...

而且，它“正常工作”：

ggplot(xdf, aes(date, close)) +
  geom_segment(aes(xend=date, yend=0), size=0.25) +
  scale_y_comma() +
  theme_ipsum_rc(grid="Y")

对于其他 API 端点，您可以遵循此习惯用法。完成后，考虑用它制作一个包，以便社区可以使用您获得的知识。

您可以执行一些额外的步骤，并实际制作带有日期或数字参数的函数，以实际采用这些类型的 R 对象并在输入时验证它们。

【讨论】：

在本地环境中设置您的令牌：创建一个带有文本TIINGO_TOKEN="yOuRAsSiGnEdT0k3n" 的文件'~/.Renviron' 并重新启动R/RStudio。使用命令Sys.getenv("TIINGO_TOKEN") 测试变量是否加载
如何在 /.Renviron 中创建文件
我收到 reader::type_convert() 行错误：使用列规范解析：cols(date = col_datetime(format = ""))
@Cing 我不会在 cmets 中帮助进一步分类。要么开始一个新问题，要么进行调试。我也从不使用这个 API，所以我不知道它是否改变了。
太棒了！第一次工作。没有编辑。谢谢你

【解决方案2】：

在调用 REST API 时，必须将授权添加为请求标头。如果您有用户名和密码，则授权标头将是“用户名：密码”。如果它是单个 apiKey 或 accessToken，它可能类似于 "Bearer" 替换为您的 Api Key。

请求头名称应为“Authorization”

【讨论】：