Домен сайта Stocktwits - PullRequest
Новая
       19

Домен сайта Stocktwits

0 голосов
/ 24 марта 2020

Я пытаюсь получить доступ к API Stocktwits из R. Затем R просто выдает сообщение «ожидание аутентификации в браузере», и ничего не происходит. Я думаю, что я использую неправильный домен сайта и перенаправляю URI.

Спасибо, Лукас Годейро

Мой код 

library(httr)

redirect_uri <- "http://www.example.com"
scope = c('read','watch_lists','publish_messages','publish_watch_lists','follow_users','follow_stocks')

consumer_key <- 'consumer_key'
consumer_secret <- 'consumer_secret'
access_token <- 'access_token'

stock_twits_app <- httr::oauth_app(appname = "Stocktwits", 
                                   key = consumer_key,
                                   secret = consumer_secret,
                                   redirect_uri =  redirect_uri) 
stock_twits <- httr::oauth_endpoint(request = 'https://api.stocktwits.com/api/2/oauth/token',
                                    authorize = 'https://api.stocktwits.com/api/2/oauth/authorize', 
                                    access = NULL)


file.remove('.httr-oauth')

stock_twits2 <- init_oauth2.0(endpoint = stock_twits, 
                              app = stock_twits_app, 
                              scope = scope, 
                              use_oob = FALSE)




stock_twits3 <- oauth2.0_authorize_url(endpoint = stock_twits, 
                              app = stock_twits_app , 
                              scope = scope, redirect_uri = stock_twits_app$redirect_uri)


stock_twits1 <- httr::oauth2.0_token(endpoint = stock_twits, 
                                     app = stock_twits_app, 
                                     scope = scope, 
                                     use_basic_auth = FALSE

)

Ошибка

Ошибка2

...