使用R访问restfulAPI令牌

Question

我的项目包括使用R.RESTfulAPI从restful中获取令牌，the 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()