Я пытаюсь подключиться к API LinkedIn, используя OAuth из библиотеки httr на сервере Shiny. Я запаковал локально работающий пример OAuth из GitHub/hadley/httr, с клиентским интерфейсом Shiny и серверной частью. У меня работает клиентский пользовательский интерфейс.
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"))
})
})
Информация о сеансе: Версия R: 2.15.3 Платформа: x86_64-pc-linux-gnu Пакеты: httr_0.2; блестящий_0.8.0.99.
Любая подсказка о том, что может быть проблемой?