Nothing
#' This function will parse the json response and checks if the reponse
#' is contains an error, if found it will promt user with the related
#' error message.
#'
#' @keywords internal
#'
#' @param GA.Data The json reponse returned by the Google analytics Data feed API.
#'
#' @return GA.list.param GA.list.param list object obtained from this json argument GA.Data.
ParseDataFeedJSON <- function(GA.Data) {
GA.list.param <- ParseApiErrorMessage(GA.Data)
if (!is.null(GA.list.param$code)) {
stop(paste("code :",
GA.list.param$code,
"Reason :",
GA.list.param$message))
}
return(GA.list.param)
}
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.