Avoid hoveron warning

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
plotly · Oct 6, 2023 · d9652a6 · d9652a6
1 parent 270d20e
commit d9652a6
Showing 1 changed file with 7 additions and 0 deletions.
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