R/ParseDataFeedJSON.R

In Tatvic/RGoogleAnalytics: R Wrapper for the Google Analytics API

#' 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)
}