使用R访问restfulAPI令牌

Question

我的项目包括使用 R 从 Restful API 获取令牌。 API 使用 OAuth 2.0。该项目属于机密，因此无法提供信息。

任何人都可以帮助我使用R中的编码来访问令牌吗？例如：

网址：facebook.com
用户名：ABC
密码：qwerty

Answer 1

这是 Facebook 可以考虑的一种方法：

library(RSelenium)

url <- "https://www.facebook.com/"
shell('docker run -d -p 4445:4444 selenium/standalone-firefox')
remDr <- remoteDriver(remoteServerAddr = "localhost", port = 4445L, browserName = "firefox")
remDr$open()
remDr$navigate(url)

web_Obj_Username <- remDr$findElement("css selector", '#email')
web_Obj_Username$sendKeysToElement(list("ABC"))

web_Obj_Password <- remDr$findElement("css selector", '#pass')
web_Obj_Password$sendKeysToElement(list("qwerty"))

html_Content <- remDr$getPageSource()[[1]]

id_Submit <- unlist(stringr::str_extract_all(html_Content, 'royal_login_button" type="submit" id=".........'))
id_Submit <- stringr::str_extract_all(id_Submit, 'id=".........')
id_Submit <- stringr::str_remove_all(id_Submit, 'id|=|\"')

web_Obj_Submit <- remDr$findElement("id", id_Submit)
web_Obj_Submit$click()