r - OAuth(从 “httr” )到 Shiny 服务器上的 LinkedIn

Question

我正在尝试使用“Shiny”服务器上“httr”库中的 OAuth 连接到 LinkedIn API。我已经包装了来自 GitHub/hadley/httr 的本地工作 OAuth 示例，带有 Shiny 的客户端用户界面和服务器端。我让客户端 UI 正常工作。

library(shiny)

shinyUI(pageWithSidebar( 
  sidebarPanel (
  textInput("userEmail", "Your email address:", value =""),
  submitButton("Grant Permission")
  ),
  mainPanel()
))

但是，服务端不会打开浏览器进行身份验证。

library(shiny)
library(httr)

shinyServer(function(input, output) {

  output$GrantPermission <- reactive ({

    linkedin <- oauth_endpoint("requestToken", "authorize", "accessToken", base_url = "https://api.linkedin.com/uas/oauth/")

    myapp <- oauth_app("linkedin", key = "abc", secret = "def")

    token <- oauth1.0_token(linkedin, myapp)

    sig <- sign_oauth1.0(myapp, token$oauth_token, token$oauth_token_secret)

    save.image(paste(input$userEmail, ".RData"))
  })
})

session 信息: R版本:2.15.3 平台:x86_64-pc-linux-gnu 软件包:httr_0.2； Shiny 的_0.8.0.99。

关于可能是什么问题的任何线索？

Answer 1

我认为我在使用 oAuth 和 twitteR 时遇到了类似的问题。结果证明是 SSL 问题，并通过添加以下内容解决:

require(RCurl) 
options(RCurlOptions = list(cainfo = system.file("CurlSSL", "cacert.pem", package = "RCurl")))