R/RetrieveAthlete.R

In zachburg/StravaInR:

RetrieveAthlete <- function(id) {
  reqUri <- "https://www.strava.com/api/v3/athlete";
  if (!missing(id)) {
    reqUri <- paste(reqUri, "s/", id, sep="")
  }
  request <- GET(reqUri, config=config)
  if (request$status_code != 200) {
    print("Something wrong")
    return();
  }
  return(content(request))
}