From 74345bafeceb5915cbcf2d9e440753ec5ba56c87 Mon Sep 17 00:00:00 2001 From: Teun van den Brand Date: Wed, 29 Nov 2023 09:52:29 +0100 Subject: [PATCH] remove shape as non-missing aes --- R/geom-segment.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/geom-segment.R b/R/geom-segment.R index 611ba85e2c..f32b61f876 100644 --- a/R/geom-segment.R +++ b/R/geom-segment.R @@ -103,7 +103,7 @@ geom_segment <- function(mapping = NULL, data = NULL, #' @export GeomSegment <- ggproto("GeomSegment", Geom, required_aes = c("x", "y", "xend|yend"), - non_missing_aes = c("linetype", "linewidth", "shape"), + non_missing_aes = c("linetype", "linewidth"), default_aes = aes(colour = "black", linewidth = 0.5, linetype = 1, alpha = NA), draw_panel = function(self, data, panel_params, coord, arrow = NULL, arrow.fill = NULL, lineend = "butt", linejoin = "round", na.rm = FALSE) { @@ -111,7 +111,7 @@ GeomSegment <- ggproto("GeomSegment", Geom, data$yend <- data$yend %||% data$y data <- check_linewidth(data, snake_class(self)) data <- remove_missing(data, na.rm = na.rm, - c("x", "y", "xend", "yend", "linetype", "linewidth", "shape"), + c("x", "y", "xend", "yend", "linetype", "linewidth"), name = "geom_segment" )