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 segment info
get_segment(stoken, id = '229781')
# get top ten leaderboard for the segment
get_segment(stoken, id = '229781', request = "leaderboard")
# get all efforts for the authenticated user on the segment
get_segment(stoken, id = '4483903', request = 'all_efforts')
# get the starred segments for the user
get_segment(stoken, request = 'starred')
}
Run the code above in your browser using DataLab