Использование R для oauth с фактическим

Question

Я пытаюсь реплицировать следующий apigee oauth call в windows 7 в R. Я пробовал Roauth (python) oauth-proxy с RCurl (возможно, лучший способ, но я не могу понять это), и другие. Вот вызов apigee, который работает отлично:

GET /places/geocode?geo=%7B%22%24point%22%3A%5B34.06021%2C-118.41828%5D%7D HTTP/1.1 
Authorization: 
OAuth oauth_consumer_key="myKey", 
oauth_signature_method="HMAC-SHA1", 
oauth_timestamp="1372529150", 
oauth_nonce="1274556232", 
oauth_version="1.0", 
oauth_signature="someSignature" 
Host: api.v3.factual.com 
X-Target-URI: http://api.v3.factual.com 
Connection: Keep-Alive 

Мои потребности для подключения к OAuth, который остается открытым, так что я могу назвать API в R. Любая помощь будет очень ценна, в частности, с тем, как указанные выше поля чтения в решения. Заранее благодарю за ваше время.

Answer 1

Извините, что я не получаю ваш точный запрос на работу, этот метод теперь устарел (http://developer.factual.com/api-docs/#Geocode). Хорошей новостью является то, что подключение к новому API-интерфейсу geotag выглядит намного проще и не требует OAuth back-and-forth (http://developer.factual.com/api-docs-v4/#Geotag). Вот что ваш запрос Apigee будет выглядеть в В4:

require(httr) 

## Factual credentials 
consumerKey <- "" ## your API key from Factual 

## geotag demo - V4 API 
geotag <- GET(paste0('https://api.factual.com/geotag?latitude=34.06021&longitude=-118.41828&KEY=',consumerKey)) 
content(geotag) 

Я предполагаю, что, однако, что подключение к другим конечным точкам для фактологического еще интересный вопрос. Только этим утром я получил это, чтобы работать на основе ответа на вопрос Using the Yelp API with R, attempting to search business types using geo-coordinates.

Я просто показываю здесь категории мест, но использовал эту подпись для подключения к прочитанным местам.

require(httr) 

## Factual credentials 
consumerKey <- "" # your key 
consumerSecret <- "" # your secret 

## authorization 
myapp <- oauth_app("Factual", key=consumerKey, secret=consumerSecret) 
## R will ask to cache credentials between these lines 
sig <- sign_oauth1.0(myapp) 

data <- GET('https://api.v3.factual.com/t/place-categories?limit=500', 
sig) 
content(data)