From 1cbc8eba97670428581f146ffad9bee204cf4b40 Mon Sep 17 00:00:00 2001
From: David Gohel <david.gohel@ardata.fr>
Date: Sat, 24 Feb 2024 09:58:49 +0100
Subject: [PATCH] fix: set 'transparent' `bg` to almost transparent

setting '#FFFFFF00' is still possible
---
 DESCRIPTION | 2 +-
 NEWS.md     | 6 ++++++
 R/girafe.R  | 2 +-
 3 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 273ee2ec..dbe8a80a 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -2,7 +2,7 @@ Package: ggiraph
 Type: Package
 Title: Make 'ggplot2' Graphics Interactive
 Description: Create interactive 'ggplot2' graphics using 'htmlwidgets'.
-Version: 0.8.9.004
+Version: 0.8.9.005
 Authors@R: c(
     person("David", "Gohel", role = c("aut", "cre"),
     email = "david.gohel@ardata.fr"),
diff --git a/NEWS.md b/NEWS.md
index 91368bfb..5a9a0f43 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -6,6 +6,12 @@
 - deprecate ggiraph
 - A font check is now done with theme settings (only when argument `ggobj` is used)
 
+## Issues 
+
+- When `bg` is set to 'transparent', it's been transformed to almost 
+transparent '#ffffff01'.
+
+
 # ggiraph 0.8.8
 
 ## Issues 
diff --git a/R/girafe.R b/R/girafe.R
index 72a8912e..317d28fd 100644
--- a/R/girafe.R
+++ b/R/girafe.R
@@ -116,7 +116,7 @@ girafe <- function(
   args$setdims <- FALSE
   # we need a surface with pointer events
   if (identical(args$bg, "transparent")) {
-    args$bg <- "#fffffffd"
+    args$bg <- "#ffffff01"
   }
 
   if (!is.null(ggobj)) {