Avoid hoveron warning

zeehio · web-flow · commit d9652a6f55d6 · 2023-10-06T04:13:18.000+02:00
When converting a ggplot object to webgl, invalid 'hoveron' warnings appear. If the toWebGL() function receives the ggplot object then it is possible for us to remove those warnings. Closes: #2296 Closes: #1582
diff --git a/R/helpers.R b/R/helpers.R
@@ -162,6 +162,13 @@ hide_legend <- function(p) {
 toWebGL <- function(p) {
   if (ggplot2::is.ggplot(p)) {
     p <- plotly_build(p)
+    traces_without_hoveron <- glTypes()
+    trace_idx <- vapply(
+      p$x$data,
+      function(trace) trace$type %in% traces_without_hoveron,
+      logical(1)
+    )
+    p <- style(p, hoveron = NULL, traces = which(trace_idx))
   }
   p$x$.plotlyWebGl <- TRUE
   p

Original file line number	Diff line number	Diff line change
`@@ -162,6 +162,13 @@ hide_legend <- function(p) {`
`162`	`162`	`toWebGL <- function(p) {`
`163`	`163`	`if (ggplot2::is.ggplot(p)) {`
`164`	`164`	`p <- plotly_build(p)`
	`165`	`+ traces_without_hoveron <- glTypes()`
	`166`	`+ trace_idx <- vapply(`
	`167`	`+ p$x$data,`
	`168`	`+ function(trace) trace$type %in% traces_without_hoveron,`
	`169`	`+ logical(1)`
	`170`	`+ )`
	`171`	`+ p <- style(p, hoveron = NULL, traces = which(trace_idx))`
`165`	`172`	`}`
`166`	`173`	`p$x$.plotlyWebGl <- TRUE`
`167`	`174`	`p`