From 870107b2bc085d90cf9bcee1c2de8fee66f76b97 Mon Sep 17 00:00:00 2001
From: gnoblet <gnoblet@zaclys.net>
Date: Sun, 28 May 2023 15:35:50 +0200
Subject: [PATCH] Correct fill error

---
 R/scale.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/R/scale.R b/R/scale.R
index 1425f0b..b1a8ccd 100644
--- a/R/scale.R
+++ b/R/scale.R
@@ -138,6 +138,7 @@ scale_color <- function(initiative = "reach", palette = "main", discrete = TRUE,
 #' @export
 scale_fill <- function(initiative = "reach", palette = "main", discrete = TRUE, reverse = FALSE, reverse_guide = TRUE, ...) {
 
+
   if (initiative == "reach") {
 
     pal <- pal_reach(palette)
@@ -219,7 +220,7 @@ scale_fill <- function(initiative = "reach", palette = "main", discrete = TRUE,
 
   if (discrete) {
     ggplot2::discrete_scale(
-      "colour",
+      "fill",
       paste0(initiative, "_", palette),
       palette = pal,
       guide = ggplot2::guide_legend(