if (FALSE) {
stoken <- httr::config(token = strava_oauth(app_name, app_client_id, app_secret, cache = TRUE))
my_acts <- get_activity_list(stoken)
strms_data <- get_activity_streams(my_acts, stoken, acts = 1:2)
}
Run the code above in your browser using DataLab