if (FALSE) {
# set token
stoken <- httr::config(token = strava_oauth(app_name, app_client_id, app_secret, cache = TRUE))
# segments to get efforts from - use some parkruns
segment <- 2269028
# get segment efforts
efforts <- get_efforts_list(stoken, segment)
# compile efforts
efforts <- compile_seg_effort(efforts)
}
Run the code above in your browser using DataLab