if (FALSE) {
# create authentication token
# requires user created app name, id, and secret from Strava website
stoken <- httr::config(token = strava_oauth(app_name, app_client_id,
app_secret, cache = TRUE))
# get basic user info
# returns 30 activities
get_pages('https://strava.com/api/v3/activities', stoken)
}
Run the code above in your browser using DataLab