R/segment_container.R

In adobeanalyticsr: R Client for 'Adobe Analytics' API 2.0

#' Create the segment container
#'
#' This function combines rules into a container.
#'
#' @param context Defines the level that the segment logic should operate on.
#' Valid values are visitors, visits, and hits. See Details
#' @param conjunction  This defines the relationship of the rules.  `And` (default)
#' and `or` are the two options.
#' @param rules List of rules and/or containers. Must be wrapped in a list()
#' function. Adding a container list item will nest it within a container.
#' @param exclude Exclude the entire container
#'
#' @details
#'
#' **Context**
#'
#' The rules in a segment have a context that specify the level of operation.
#' The context can be "visitors", "visits" or "hits."
#' As an example, let's build a segment rule where revenue is greater than 0
#' (meaning a purchase took place) and change the context to see how things change.
#' If the context is set to "visitors", the segment includes all hits from visitors
#' that have a purchase of some kind during a visit. This is useful in analyzing
#' customer behavior in visits leading up to a purchase and possibly behavior after a purchase.
#' If the context is set to "visits", the segment includes all hits from visits where
#' a purchase occurred. This is useful for seeing the behavior of a visitor in
#' immediate page views leading up to the purchase.
#' If the context is set to "hit", the segment only includes hits where a purchase
#' occurred, and no other hits. This is useful in seeing which products were most popular.
#' In the above example, the context for the container listed is hits. This means
#' that the container only evaluates data at the hit level,
#' (in contrast to visit or visitor level). The rules in the container are also at the hit level.
#'
#' @return a structured list of containers to be used to build the segment
#'
#' @import dplyr assertthat stringr
#'
#' @export
#'
#'
seg_con <- function(context = 'hits',
                    conjunction = 'and',
                    rules = NULL,
                    exclude = FALSE) {
  container <- if (length(unlist(rules)) > 3 && exclude == FALSE) {
    list(
      func = 'container',
      context = context,
      pred = list(
        func = conjunction,
        preds = rules
      )
    )
  } else if (length(unlist(rules)) > 3 && exclude == TRUE) {
    list(
      func = 'container',
      context = context,
      pred = list(
        func = 'without',
        pred = list(
          func = conjunction,
          preds = rules
        )
      )
    )
  } else if (length(unlist(rules)) < 3 && exclude == FALSE) {
    list(
      func = 'container',
      context = context,
      pred =  rules
    )
  } else if (length(unlist(rules)) < 3 && exclude == TRUE) {
    list(
      func = 'without',
      pred = list(
        func = 'without',
        pred = list(
          func = 'container',
          context = context,
          pred =  rules
        )
      )
    )
  }
  ## add in the "sessions" context value if the allocation model is not null
  for (i in length(container$pred$preds)) {
    if (!is.null(container$pred$preds[[i]]$val$`allocation-model`$func) && context == 'visits') {
      container$pred$preds[[i]]$val$`allocation-model`$context = 'sessions'
    }
  }
  container
}