oops

cpsievert · cpsievert · commit 6e95940bbc97 · 2016-10-06T11:16:40.000-05:00
diff --git a/R/ggplotly.R b/R/ggplotly.R
@@ -133,6 +133,7 @@ gg2list <- function(p, width = NULL, height = NULL, tooltip = "all",
     )
     grDevices::dev.new
   }
+  tmpPlotFile <- tempfile(fileext = ".png")
   dev_fun(tmpPlotFile, width = deviceWidth, height = deviceHeight)
   
 

Original file line number	Diff line number	Diff line change
`@@ -133,6 +133,7 @@ gg2list <- function(p, width = NULL, height = NULL, tooltip = "all",`
`133`	`133`	`)`
`134`	`134`	`grDevices::dev.new`
`135`	`135`	`}`
	`136`	`+ tmpPlotFile <- tempfile(fileext = ".png")`
`136`	`137`	`dev_fun(tmpPlotFile, width = deviceWidth, height = deviceHeight)`
`137`	`138`
`138`	`139`