Nothing
#' @title GetFitDataset
#' @rdname GetFitDataset
#' @export
#' @param token - OAuth 2.0 access token
#' @param datasource - Data Stream ID
#' @param startTime - Start time for dataset. \code{Date} datatype is required
#' @param endTime - End time for dataset. \code{Date} datatype is required
#' @description
#' Retrieves a dataset for a given \code{datasource} and time range defined by
#' \code{startTime} and \code{endTime}.
#' Refer to \url{https://developers.google.com/fit/rest/v1/datasets}
#' for full documentation.
GetFitDataset <- function(token, datasource, startTime, endTime) {
ValidateDateRange(startTime, endTime)
ValidateDatasource(datasource)
fitStartTS <- EpochTime(startTime)
fitEndTS <- EpochTime(endTime)
url <- paste0("https://www.googleapis.com/fitness/v1/users/me/dataSources/",
datasource, "/datasets/", fitStartTS, "-", fitEndTS)
url <- URLencode(url)
print(paste("Requested URL:", url))
return(fromJSON(getURL(url, httpheader = FitHTTPHeader(token))))
}
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.