default() should use prefix_class() so that to_JSON() knows what method to use

Author: cpsievert

R/utils.R

@@ -50,7 +50,7 @@ is.default <- function(x) {
 }
 
 default <- function(x) {
-  structure(x %||% list(), class = "plotly_default")
+  prefix_class(x %||% list(), "plotly_default")
 }
 
 compact <- function(x) {

demo/sf-mapbox-data.R

@@ -17,10 +17,10 @@ bscols(
   DT::datatable(mn)
 )
 
+# linking with plotly
 nc <- sf::st_read(system.file("shape/nc.shp", package = "sf"), quiet = TRUE)
 ncsd <- SharedData$new(nc)
 
-
 # note that brushing counties is currently possible with plot_ly(), but isn't quite working 
 # yet with plot_mapbox() -- https://github.com/plotly/plotly.js/issues/2512
 bscols(

tests/testthat/test-plotly-internals.R

@@ -8,3 +8,10 @@ test_that("remove_class() can remove 'AsIs' class", {
   x <- remove_class(I(x), "AsIs")
   expect_equivalent(class(x), c("x", "y"))
 })
+
+
+test_that("default() doesn't change to_JSON() behavior", {
+  x <- 1:10
+  expect_equivalent(to_JSON(default(x)), to_JSON(x))
+})
+