R/StatBraceLabel.R

In Solatar/ggbrace: Curly Braces for 'ggplot2'

StatBraceLabel <- ggplot2::ggproto(
  `_class` = "StatBraceLabel",
  `_inherit` = Stat,
  compute_group = function(
    data,
    scales,
    rotate = 0,
    mid = NULL,
    textdistance = NULL,
    distance = NULL,
    outerstart = NULL,
    width = NULL,
    outside = TRUE
  ){
      x = data$x
      y = data$y

      #provides data.frame with an x and y value for the label
      coords <- .coordCorrection(
        x = x,
        y = y,
        rotate = rotate,
        mid = mid,
        textdistance = textdistance,
        distance = distance,
        outerstart = outerstart,
        width = width,
        outside = outside
      )[["labelCoords"]]

      return(coords)
    }
)