gg2list() should return a built object

cpsievert · cpsievert · commit 51b54a95d8ce · 2016-05-05T11:31:10.000+10:00
diff --git a/R/ggplotly.R b/R/ggplotly.R
@@ -641,7 +641,7 @@ gg2list <- function(p, width = NULL, height = NULL, tooltip = "all", source = "A
   l$width <- width
   l$height <- height
   l$source <- source
-  structure(l, class = "plotly")
+  structure(l, class = "plotly_built")
 }
 
 
diff --git a/R/utils.R b/R/utils.R
@@ -73,7 +73,7 @@ last_plot <- function(data = NULL) {
   if (inherits(p, "try-error")) stop("The last plot doesn't exist")
   structure(
     p, 
-    class = unique(c("plotly", class(p)))
+    class = unique(c("plotly_hash", class(p)))
   )
 }
 

Original file line number	Diff line number	Diff line change
`@@ -641,7 +641,7 @@ gg2list <- function(p, width = NULL, height = NULL, tooltip = "all", source = "A`
`641`	`641`	`l$width <- width`
`642`	`642`	`l$height <- height`
`643`	`643`	`l$source <- source`
`644`		`- structure(l, class = "plotly")`
	`644`	`+ structure(l, class = "plotly_built")`
`645`	`645`	`}`
`646`	`646`
`647`	`647`
Original file line number	Diff line number	Diff line change
`@@ -73,7 +73,7 @@ last_plot <- function(data = NULL) {`
`73`	`73`	`if (inherits(p, "try-error")) stop("The last plot doesn't exist")`
`74`	`74`	`structure(`
`75`	`75`	`p,`
`76`		`- class = unique(c("plotly", class(p)))`
	`76`	`+ class = unique(c("plotly_hash", class(p)))`
`77`	`77`	`)`
`78`	`78`	`}`
`79`	`79`