trace type derives from data

Author: cpsievert

R/utils.R

@@ -834,7 +834,7 @@ verify_scattergl_platform <- function(p) {
   if (!identical(.Platform$OS.type, "windows")) return(p)
   if (!is_rstudio()) return(p)
 
-  types <- vapply(p, function(x) x[["type"]] %||% "scatter", character(1))
+  types <- vapply(p$x$data, function(x) x[["type"]] %||% "scatter", character(1))
   if ("scattergl" %in% types) {
     warning(
       "'scattergl' trace types don't currently render in RStudio on Windows",