~hrbrmstr/ggchicklet

2e4188fb35bbeaa56aa28b5eebdc63293eca79a2 — hrbrmstr 4 years ago 4b2accf
fixes #1
1 files changed, 2 insertions(+), 2 deletions(-)

M R/geom-chicklet.R
M R/geom-chicklet.R => R/geom-chicklet.R +2 -2
@@ 71,14 71,14 @@ geom_chicklet <- function(mapping = NULL, data = NULL,
  )
}

draw_key_rrect <- function(data, params, size) { # nocov start
draw_key_rrect <- function(data, params, size, ...) { # nocov start
  grid::roundrectGrob(
    r = min(params$radius, unit(3, "pt")),
    default.units = "native",
    width = 1, height = 0.6,
    name = "lkey",
    gp = grid::gpar(
      col = params$color %l0% "white",
      col = params[["color"]][[1]] %l0% params[["colour"]][1] %l0% data[["colour"]][[1]] %l0% "#00000000",
      fill = alpha(data$fill %||% data$colour %||% "grey20", data$alpha),
      lty = data$linetype %||% 1
    )