informative warning when using scattergl on Windows+RStudio, addresses #1214

Author: cpsievert

R/plotly_build.R

@@ -395,6 +395,10 @@ plotly_build.plotly <- function(p, registerFrames = TRUE) {
   # if a partial bundle was specified, make sure it supports the visualization
   p <- verify_partial_bundle(p)
 
+  # scattergl currently doesn't render in RStudio on Windows
+  # https://github.com/ropensci/plotly/issues/1214
+  p <- verify_scattergl_platform(p)
+  
   # make sure plots don't get sent out of the network (for enterprise)
   p$x$base_url <- get_domain()
   p

R/utils.R

@@ -830,6 +830,22 @@ verify_guides <- function(p) {
   p
 }
 
+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))
+  if ("scattergl" %in% types) {
+    warning(
+      "'scattergl' trace types don't currently render in RStudio on Windows",
+      "Open in another web browser (IE, Chrome, Firefox, etc).",
+      call. = FALSE
+    )
+  }
+  
+  p
+}
+
 has_marker <- function(types, modes) {
   is_scatter <- grepl("scatter", types)
   ifelse(is_scatter, grepl("marker", modes), has_attr(types, "marker"))