Nothing
#' Set the url of the athlete to get data
#'
#' Set the url of the athlete to get data using an ID
#'
#' @param id str or integer of athlete id assigned by Strava, NULL will set the authenticated user URL
#'
#' @export
#'
#' @details used by other functions
#'
#' @return A character string of the athlete URL used for API requests
url_athlete <- function(id = NULL){
url_ <- "https://www.strava.com/api/v3/athlete"
if(!is.null(id))
url_ <- paste(url_,"s/",id, sep = "")
return(url_)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.