From 65030f5ecb3a63f7cdb650f900867d654d08c39a Mon Sep 17 00:00:00 2001
From: Teun van den Brand <tahvdbrand@gmail.com>
Date: Wed, 24 Apr 2024 13:42:47 +0200
Subject: [PATCH] <GeomBar> doesn't inherit `optional_aes`

---
 R/geom-bar.R | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/R/geom-bar.R b/R/geom-bar.R
index e4611fbabb..03f2c76ba3 100644
--- a/R/geom-bar.R
+++ b/R/geom-bar.R
@@ -129,6 +129,8 @@ geom_bar <- function(mapping = NULL, data = NULL,
 GeomBar <- ggproto("GeomBar", GeomRect,
   required_aes = c("x", "y"),
 
+  optional_aes = character(),
+
   # These aes columns are created by setup_data(). They need to be listed here so
   # that GeomRect$handle_na() properly removes any bars that fall outside the defined
   # limits, not just those for which x and y are outside the limits