From a5e0975c85529f0f77aa5bd9896afc49d6ef5443 Mon Sep 17 00:00:00 2001
From: Teun van den Brand <tahvdbrand@gmail.com>
Date: Sat, 27 Apr 2024 22:38:23 +0200
Subject: [PATCH] work with `fill` too

---
 R/guide_colour_ring.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/guide_colour_ring.R b/R/guide_colour_ring.R
index 06463ff..74a61e9 100644
--- a/R/guide_colour_ring.R
+++ b/R/guide_colour_ring.R
@@ -221,7 +221,7 @@ GuideColourRing <- ggproto(
     x <- unit(x, "npc") - unit(sin(theta) * r, "cm")
     y <- unit(y, "npc") - unit(cos(theta) * r, "cm")
 
-    colour <- params$key$colour
+    colour <- params$key[[params$aesthetic]]
     ring <- polygonGrob(
       x = x, y = y, id.lengths = rep(4, nrow(params$key)),
       gp = gpar(fill = colour, col = colour, lwd = 1),