R/RetrieveAthleteStats.R

In zachburg/StravaInR:

RetrieveAthleteStats <- function(id) {
  reqUri <- paste("https://www.strava.com/api/v3/athletes/", id, "/stats",
                  sep = "")
  request <- GET(reqUri, config=config(token=token))
  return(content(request))
}