R/beer.R

In andr3wli/geombeer: Alchoholic beverage and bar food image generator with ggplot2

#' An internal function for geom_beer
#'
#' @param x numeric vector
#' @param y numeric vector
#' @param color indicates the color. The default color is set to #bdbdbd which is grrey-ish
#' @param lineend Line end style (round, butt, square). Default is set to butt.
#'
#' @return
#' mapping: x = ~-x + 1.5, y = ~y, xend = ~x - 1.5, yend = ~y
#'geom_segment: arrow = NULL, arrow.fill = NULL, lineend = butt, linejoin = round, na.rm = FALSE
#'stat_identity: na.rm = FALSE
#'position_identity
#' @export
#'
#' @example
#' beer(3)
beer <- function(x, y, color = "#bdbdbd", lineend = "butt") {
  list(
    ggplot2::geom_segment(ggplot2::aes(x = -x + 1.5, xend = x - 1.5,
                     y = y, yend = y),
                 size = 60, lineend = lineend, color = color)
  )
}