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
segments <- c(2269028, 5954625)
# compile segment efforts
segments %>% purrr::map_df(., .f = compile_seg_efforts, stoken = my_token, .id = 'id')
}
Run the code above in your browser using DataLab