HTTP-статус 401 Semantria API

Question

После прочтения руководства по API я с нетерпением жду возможности сделать запрос с использованием пакета httr в R.

В качестве простого теста я хочу получить функции по языку, что должно быть относительно простымвызов.Тем не менее, и даже если я правильно строю URL на основе руководства, у меня ничего не получилось.

URL для вызова:

"https://api.semantria.com/features.json?oauth_consumer_key=25459811-a9cd-3020-8afd-f7e16400653a&oauth_nonce=55Li4Bfa4h&oauth_signature_method=HMAC-SHA1&oauth_timestamp=1559806878&oauth_version=1.0&language=en"

keyи nonce были изменены для примера!

Метод аутентификации oauth_signature

https://semantria.readme.io/v4.2.3/reference#authentication https://semantria.readme.io/v4.2.3/reference#checking-supported-features-by-language

library(httr)

oauth_url <- "https://api.semantria.com"

semantria <- oauth_app(appname = "semantria",
                       key = consumerKey,
                       secret = consumerSecret)

signature <- oauth_signature(url = oauth_url, 
                            method = "GET", 
                            app = semantria,
                            token = consumerKey,
                            token_secret = consumerSecret)

url <- modify_url(url = url,
           path = "/features.json",
           query = list(
             oauth_consumer_key = oauth_consumer_key,
             oauth_nonce = oauth_nonce,
             oauth_signature_method = oauth_signature_method,
             oauth_timestamp = oauth_timestamp,
             oauth_version = oauth_version,
             language = "en"
           ))

response <- GET(url)