R/position.R

In paleolimbot/ggr6: An Implementaation of the Grammar of Graphics in R6

#' Adjust positions before rendering
#'
#' Positions are called once per panel per layer between
#' the [Stat] computation and the [Geom] computation. The
#' default `PositionIdentity` does no position adjustment.
#'
#' @export
Position <- R6Class(
  "Position",
  public = list(
    # nocov start

    #' @details
    #' Perform position adjustment, returning a transformed copy of
    #' `transformed_data`.
    compute_panel = function(transformed_data, panel) {
      not_implemented()
    }
    # nocov end
  )
)

#' @rdname Position
#' @export
PositionIdentity <- R6Class(
  "PositionIdentity", inherit = Position,
  public = list(
    compute_panel = function(transformed_data, panel) {
      transformed_data
    }
  )
)