fix: label_interactive was broken by the new V4 ggplot2

see #348

Author: davidgohel

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: ggiraph
 Title: Make 'ggplot2' Graphics Interactive
-Version: 0.9.4
+Version: 0.9.5.001
 Authors@R: c(
     person("David", "Gohel", , "david.gohel@ardata.fr", role = c("aut", "cre")),
     person("Panagiotis", "Skintzos", , "sigmapi@posteo.net", role = "aut"),

NEWS.md

@@ -1,3 +1,9 @@
+# ggiraph 0.9.5
+
+## Issues
+
+- fix label_interactive broken by the new V4 ggplot2 (#348)
+
 # ggiraph 0.9.4
 
 - toolbar gains new button "fullscreen".

R/element_interactive.R

@@ -59,8 +59,11 @@ element_interactive <- function(
   # By setting them as an attribute they are preserved.
   attr(struct, "interactive") <- ip
   attr(struct, "ipar") <- ipar
+  # Strip namespace prefix from S7 class name
+  # (e.g. "ggplot2::element_text" -> "element_text")
+  base_class <- sub("^.*::", "", class(struct)[1])
   class(struct) <- c(
-    paste("interactive", class(struct)[1], sep = "_"),
+    paste("interactive", base_class, sep = "_"),
     "interactive_element",
     class(struct)
   )