#' getStreams
#'
#' get all streams from a specific activity and save to a folder
#'
#' @param activity.id
#' @param stream.type
#' @param path
#'
#' @return
#' @export
#'
#' @examples
getStreams <- function(activity.id, stream.type = streams.type, path = "./mydata/"){
## debug
#activity.id = "1377378518"
#stream.type = streams.type
## generate the path
myPath <- makeStreamPath(activity.id = activity.id, stream.type = streams.type)
message(paste0("Get streams for activity: ", activity.id))
## Get all the associated streams
activity.streams <- setNames(object = lapply(myPath, getStream),
nm = streams.type)
activity.streamsDT <- data.table(
time = activity.streams$time$time,
distance = activity.streams$distance$distance,
lat = activity.streams$latlng$latlng[,2],
lng = activity.streams$latlng$latlng[,1],
altitude = activity.streams$altitude$altitude,
velocity_smooth = activity.streams$velocity_smooth$velocity_smooth,
heartrate = activity.streams$heartrate$heartrate,
temp = activity.streams$temp$temp,
moving = activity.streams$moving$moving,
grade_smooth = activity.streams$grade_smooth$grade_smooth
)
activity.streamsDT[ , point.id := 1:nrow(activity.streamsDT)]
activity.streamsDT[ , activity.id := activity.id]
write.csv(x = activity.streamsDT, file = paste0(path,activity.id,".csv"))
return(activity.streamsDT)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.