don't consider mesh3d's data arrays for training

Author: cpsievert

R/plotly_build.R

@@ -97,7 +97,8 @@ plotly_build.plotly <- function(p) {
     isArray <- lapply(Attrs, function(x) {
       tryCatch(identical(x[["valType"]], "data_array"), error = function(e) FALSE)
     })
-    dataArrayAttrs <- names(Attrs)[as.logical(isArray)]
+    # I don't think we ever want mesh3d's data attrs
+    dataArrayAttrs <- if (identical(trace[["type"]], "mesh3d")) NULL else names(Attrs)[as.logical(isArray)]
     # for some reason, text isn't listed as a data array attributein some traces
     # I'm looking at you scattergeo...
     tr <- trace[names(trace) %in% c(npscales(), special_attrs(trace), dataArrayAttrs, "text")]

inst/htmlwidgets/plotly.js

@@ -9,7 +9,7 @@ HTMLWidgets.widget({
     // open in chrome, right-click on console output: "save-as" -> "schema.json"
     // Schema <- jsonlite::fromJSON("~/Downloads/schema.json")
     // devtools::use_data(Schema, overwrite = T)
-    console.log(JSON.stringify(Plotly.PlotSchema.get()));
+    // console.log(JSON.stringify(Plotly.PlotSchema.get()));
     return {};
   },