Defines functions ParsePathing

Documented in ParsePathing

#' ParsePathing
#' Internal Function - Parses a pathing report returned from the API
#' @param report.data jsonlite formatted data frame of report data returned from the API
#' @importFrom plyr ldply
#' @return Formatted data frame
#' @family internal
#' @keywords internal

ParsePathing <- function(report.data) {

  data <- report.data$report$data

  names(paths.df) <- paste("step.",1:ncol(paths.df),sep="")

  paths.df$count <- as.numeric(data$counts)

  #Get segment
  seg <- report.data$report$segments

  #If segment null, make a dummy data frame
      seg <- data.frame(list("", ""))
      names(seg) <- c("segment.id", "segment.name")

  #If segment has values, concatenate all values with "AND".  R puts the
  #concatenated values in every single row, so I dedupe the dataframe
    names(seg) <- c("segment.id", "segment.name")
    seg$segment.name<-(paste(as.list(seg$segment.name),collapse=" AND "))
    seg$segment.id<-(paste(as.list(seg$segment.id),collapse=" AND "))


  return(cbind(paths.df, seg, row.names = NULL))

Try the RSiteCatalyst package in your browser

Any scripts or data that you put into this service are public.

RSiteCatalyst documentation built on Nov. 6, 2019, 5:09 p.m.