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