R/preRender.R

In devOpifex/g2r: Interactive Grammar of Graphics

#' Pre Render Hook
#'
#' @param g g2r obeject as returned by [g2()].
#'
#' @return A modified version of `g`.
#'
#' @keywords internal
pre_render <- function(g) {

  # filter columns
  cols <- unique(g$x$cols)
  g$x$data <- select_columns(g$x$data, cols)
  types <- sapply(g$x$views, function(view) {
    view$type
  })

  x <- select_asp_labels(g$x$main_asp, "x")
  color <- select_asp_labels(g$x$main_asp, "color")
  if (!any(types %in% NO_REORDER_TYPES) && g$x$reorder) {
    g$x$data <- order_data(g$x$data, unlist(x), unlist(color))
  }

  # remove unneeded
  g$x$cols <- NULL
  g$x$main_asp <- NULL
  g$x$graph <- NULL

  # globals
  if (is.null(g$x$motif)) {
    g$x$motif <- get_global_motif()
  }

  if (is.null(g$x$chartOpts)) {
    g$x$chartOpts <- get_global_chart_opts()
  }

  # add default select if none specified
  if (is.null(g$x$crosstalk_select)) {
    g <- crosstalk_select(g, "stroke", "black")
  }

  g
}