代码之家 › 专栏 › 技术社区 › Stan

将R Studio连接到精确的在线API

exact-online oauth-2.0 oauth r

Stan · 技术社区 · 6 年前

我正在尝试与准确的在线API建立连接,并遵循准确的在线社区页面中列出的步骤: https://support.exactonline.com/community/s/knowledge-base#All-All-DNO-Task-oauth-eol-oauth-dev-oauth2tut 。

我成功地完成了步骤1和步骤2。也就是说,我收到的授权代码如示例中所列:“实际响应: https://www.mycompany.com/myapplication?code=XTzM!IAAAACbPTzQJXwFhM 。。。“”

我必须在步骤3中使用此代码,但我似乎无法使其正常工作。我使用了所有列出的参数,但得到的响应是:

Response [https://start.exactonline.nl/api/oauth2/token]
Date: 2018-04-14 10:58
Status: 400
Content-Type: text/html
Size: 11 B

我不知道我做错了什么。我在步骤3中使用的代码是:

url <- "https://start.exactonline.nl/api/oauth2/token"
POST(url, add_headers("Content-type" = "application/x-www-form-urlencoded"),
    body = list(code="[CODE_FROM_STEP_2]",
        redirect_uri="[MY_WEBSITE_URI]", client_id="[MY_CLIENT_ID]", 
        client_secret="[MY_CLIENT_SECRET]", grant_type="authorization_code"))

如果有人能帮我解决这个问题,我将非常感激!谢谢

编辑:使用 verbose() 在POST调用中,状态:400 error表示为HTTP/1.1 400 Bad Request。

1 回复 | 直到 6 年前

Stan 6 年前

对于任何感兴趣的人,我通过使用 Postman 获取第一次访问并刷新令牌。然后,我使用刷新令牌获得新的访问权限,并使用以下代码刷新令牌:

a <- POST(url,
      body = list(refresh_token = {refresh_token},
                  grant_type = "refresh_token", client_id = {client_id}, 
                  client_secret = {client_secret}),
      encode = "form")
a.df <- as.data.frame(fromJSON(content(a,type="text")))

这将在数据帧中获得访问令牌、令牌类型、过期时间和刷新令牌。

推荐文章

Marc B. · 使用ggplot2创建条形图时“缺少值”

1 年前

deschen · tidyverse与外部向量发生突变,该外部向量的元素是数据帧中的列值

1 年前

Laura · 在Shiny中使用可排序的包拖放名称,这些名称将成为图表

1 年前

Mallikarjun M · 如何使用随机森林进行时间序列预测?

1 年前

ly li · 模型摘要:当表格形状改变时,拟合优度消失

1 年前

C.Robin · 将marginaffects::predictions()的结果连接回main df?

1 年前

monotonic · 如何将格式为“col1+col3+col4”的数据帧的行名转换为一列数字向量“c(1,3,4)”?

2 年前

Shawn Hemelstrand · 为什么我的自定义errorbar函数不能在R中工作?

2 年前

RoyBatty · 统计每个字符在整个数据集中出现的次数

2 年前

stats_noob · R: 记录某个“行为”发生的循环的索引?

2 年前