set background of hover info of add_fan() to the fillcolor

inbo · Feb 23, 2024 · b7da204 · b7da204
1 parent ac3a5b6
commit b7da204
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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