Use htmlwidgets for new_id

Forest Fang · Forest Fang · commit 1d96d409dd12 · 2017-06-15T21:48:59.000-07:00
diff --git a/R/utils.R b/R/utils.R
@@ -88,7 +88,7 @@ deparse2 <- function(x) {
 }
 
 new_id <- function() {
-  basename(tempfile(""))
+  htmlwidgets:::createWidgetId()
 }
 
 names2 <- function(x) {

Original file line number	Diff line number	Diff line change
`@@ -88,7 +88,7 @@ deparse2 <- function(x) {`
`88`	`88`	`}`
`89`	`89`
`90`	`90`	`new_id <- function() {`
`91`		`- basename(tempfile(""))`
	`91`	`+ htmlwidgets:::createWidgetId()`
`92`	`92`	`}`
`93`	`93`
`94`	`94`	`names2 <- function(x) {`