From b7da20498db74b76930880a19d3800e1d9c96108 Mon Sep 17 00:00:00 2001
From: Thierry Onkelinx <thierry.onkelinx@inbo.be>
Date: Fri, 23 Feb 2024 11:08:38 +0100
Subject: [PATCH] set background of hover info of add_fan() to the fillcolor

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

diff --git a/R/add_fan.R b/R/add_fan.R
index dd7cf50..e9b8fb1 100644
--- a/R/add_fan.R
+++ b/R/add_fan.R
@@ -57,7 +57,7 @@ add_fan <- function(
     dots$legendgroup <- name
   }
   for (prob in seq(max_prob, 1e-6, by = -step)) {
-    dots$hoverinfo <- ifelse(prob < max_prob, "none", hoverinfo)
+    dots$hoverinfo <- hoverinfo
     dots$x <- x
     dots$text <- text
     dots$ymin <- ~lcl
@@ -67,6 +67,7 @@ add_fan <- function(
     dots$inherit <- TRUE
     dots$line <- list(width = 0)
     dots$fillcolor <- fillcolor
+    dots$color <- I(fillcolor)
     dots$p <- p
     dots$data <- error_ribbon(
       data = data, y = y, sd = sd, prob = prob, link = link