if (FALSE) {
library(dplyr)
# get actframe, all activities
stoken <- httr::config(
token = strava_oauth(
app_name,
app_client_id,
app_secret,
app_scope="activity:read_all"
)
)
my_acts <- get_activity_list(stoken)
act_data <- compile_activities(my_acts)
# mutate
act_data %>% filter(name %in% 'Morning Ride')
}
Run the code above in your browser using DataLab