R/old/make-stream-path.R

In longwei66/mountainbikeR: A package for mountainbikers to access and visualise ride data through strava API

#' makeStreamPath
#'
#' build the API url path for streams
#'
#' @param activity.id the id of the activity
#' @param stream.type the type of the stream
#'
#' @return the full API path
#' @export
#'
#' @examples
#' \dontrun{
#' makeStreamPath(activity.id = activity.id, stream.type = streams.type)
#' }
makeStreamPath <- function(activity.id = NULL, stream.type = NULL){

    if(is.null(activity.id)){ stop("activity.id cannot be NULL")}
    if(is.null(stream.type)){ stop("stream.type cannot be NULL")}

    my.path = paste0("api/v3/activities/", activity.id, "/streams/", stream.type)
    return(my.path)
}