user.following: Retrieve the blogs a user is following.
In tumblR: Access to Tumblr V2 API

Description Usage Arguments Details Value Author(s) References Examples

Use this method to retrieve the blogs followed by the user whose OAuth credentials are submitted with the request.

1 2	user.following(limit = 20, offset = 0, token = NA, consumer_key = NA, consumer_secret = NA)

`limit`	The number of results to return: 1-20, inclusive.
`offset`	Result to start at. 0 is the first follower.
`token`	Represents the complete set of data needed for OAuth access: an app, an endpoint, cached credentials and parameters. See Details.
`consumer_key`	The consumer key provided by your application.
`consumer_secret`	The consumer secret provided by your application.

The API supports the OAuth 1.0a Protocol, accepting parameters via the Authorization header, with the HMAC-SHA1 signature method only.

A serialized JSON object with the following fields:

`total_blogs`	A number. The number of blogs the user is following.
`blogs`	An array. Each item is a blog that is being followed, containing these fields:
`name`	A string. The user name attached the blog that is being followed.
`url`	A string. The URL of the blog that is being followed.
`updated`	A number. The time of the most recent post, in seconds since the epoch.
`title`	A string. The title of the blog.
`description`	A string. The description of the blog.

Andrea Capozio

https://www.tumblr.com/docs/en/api/v2

## Not run: 	
## An example of an authenticated request using the httr package,
## where consumer_key, consumer_secret, appname are fictitious.
## You can obtain your own at https://www.tumblr.com/oauth/apps

consumer_key <-'key'
consumer_secret <- 'secret'
appname <- Tumblr_App
tokenURL <- 'https://www.tumblr.com/oauth/request_token'
accessTokenURL <- 'https://www.tumblr.com/oauth/acces_token'
authorizeURL <- 'https://www.tumblr.com/oauth/authorize'

app <- oauth_app(appname, consumer_key, consumer_secret)
endpoint <- oauth_endpoint(tokenURL, authorizeURL, accessTokenURL)
token <- oauth1.0_token(endpoint, app)
sig <- sign_oauth1.0(app, 
token = token$credentials$oauth_token, 
token_secret = token$credentials$oauth_token_secret)

user.following(token = token, consumer_key = consumer_key, 
consumer_secret = consumer_secret)

## End(Not run)