if (FALSE) {
stoken <- httr::config(token = strava_oauth(app_name, app_client_id, app_secret, cache = TRUE))
act_id <- 351217692
streams <- get_streams(stoken, id = act_id, types = list('distance', 'latlng'))
compile_activity_streams(streams, id = act_id)}
Run the code above in your browser using DataLab