在R中通过Netatmo API获取数据

我试图从我可以通过API访问的netatmo站点获取数据。下面是我在R中使用的代码

myapp   <- oauth_app("my_netatmo",key="my_netatmo_client_id",secret="my_netatmo_client_secret")
ep      <- oauth_endpoint(authorize = "http://api.netatmo.net/oauth2/authorize",access = "http://api.netatmo.net/oauth2/token")
sig_tok <- oauth2.0_token(ep,myapp, scope="read_station")

#after that I get redirected to my browser to log in and after that sig_tok contains an access token
sig     <- config(token = sig_tok)
html_get<-GET("http://api.netatmo.net/api/devicelist",sig)

既然“sig”似乎包含一个标记，我做错了什么

sig$token$credentials$access_token
[1] "5**********************f|3**********************a"

---

有两个令牌，或者我错了（因为其间有“|”吗？

访问令牌中的“|”是它的一部分，它只是一个访问令牌

从文件中：，

---

参数名为：“访问令牌”。我不知道R语言，但似乎您正在发送“token”作为参数，而不是“access\u token”。这也许可以解释问题。

嗨，Fabien，thanx，我想知道答案，这样我就可以更专注于我使用的程序语言，并发现我必须“手动”构造url，而不是使用func config:json\u get

sig$token$credentials$access_token
[1] "5**********************f|3**********************a"