从Curl到R读取API代码

我正在尝试使用R从经过身份验证的API读取json，但没有成功

我有Curl代码，并尝试使用“curlconverter”库将其转换为R，还尝试使用“httr”库获取它

我希望能有一个解决方案，用R写这段代码

library(curlconverter) # devtools::install_github("hrbrmstr/curlconverter")

u <- "curl -X GET 'https://api.cartolafc.globo.com/auth/liga/gurudocartola-com?orderBy=campeonato&page=1' -H 'Cache-Control: no-cache' -H 'x-glb-token: mytoken'"

straighten(u) %>% 
  make_req()

这很直截了当（如果一个人在发布问题之前做过任何研究）转化为：

httr::GET( 
  url = "https://api.cartolafc.globo.com/auth/liga/gurudocartola-com", 
  httr::add_headers(
    `Cache-Control` = "no-cache", 
    `x-glb-token` = "mytoken"
  ),
  query = list(
    `orderBy` = "campeonato",
    `page` = 1L
  )
)

后面的勾号仅仅是为了提醒我它们是参数（而且，它们有时包含破折号或其他字符，强制使用后面的勾号引号）

这很直截了当（如果一个人在发布问题之前做过任何研究）转化为：

httr::GET( 
  url = "https://api.cartolafc.globo.com/auth/liga/gurudocartola-com", 
  httr::add_headers(
    `Cache-Control` = "no-cache", 
    `x-glb-token` = "mytoken"
  ),
  query = list(
    `orderBy` = "campeonato",
    `page` = 1L
  )
)

---

反勾号仅用于提醒我它们是参数（有时它们包含破折号或其他字符，强制使用反勾号引用）。

您可以在

system（）

命令中包装系统调用。或者，您也可以使用诸如或之类的库来执行此类任务。您可以在

system（）

命令中包装系统调用。或者，您可以使用诸如或之类的库来执行此类任务。

httr::GET( 
  url = "https://api.cartolafc.globo.com/auth/liga/gurudocartola-com", 
  httr::add_headers(
    `Cache-Control` = "no-cache", 
    `x-glb-token` = "mytoken"
  ),
  query = list(
    `orderBy` = "campeonato",
    `page` = 1L
  )
)