# NOT RUN {
library(dplyr)
# get actframe, all activities
stoken <- httr::config(token = strava_oauth(app_name, app_client_id, app_secret, cache = TRUE))
my_acts <- get_activity_list(stoken)
act_data <- compile_activities(my_acts)
# mutate
act_data %>% mutate(is_run=type=='Run')
# }
Run the code above in your browser using DataLab