emit defaultValues as a string, addresses #1191

cpsievert · cpsievert · commit 1e689efbff1b · 2018-02-06T11:20:00.000-06:00
diff --git a/R/utils.R b/R/utils.R
@@ -295,7 +295,7 @@ supply_highlight_attrs <- function(p) {
       p <- htmlwidgets::onRender(
         p, sprintf(
           "function(el, x) { crosstalk.group('%s').var('selection').set(%s) }", 
-          i, jsonlite::toJSON(vals, auto_unbox = FALSE)
+          i, jsonlite::toJSON(as.character(vals), auto_unbox = FALSE)
         )
       )
     }

Original file line number	Diff line number	Diff line change
`@@ -295,7 +295,7 @@ supply_highlight_attrs <- function(p) {`
`295`	`295`	`p <- htmlwidgets::onRender(`
`296`	`296`	`p, sprintf(`
`297`	`297`	`"function(el, x) { crosstalk.group('%s').var('selection').set(%s) }",`
`298`		`- i, jsonlite::toJSON(vals, auto_unbox = FALSE)`
	`298`	`+ i, jsonlite::toJSON(as.character(vals), auto_unbox = FALSE)`
`299`	`299`	`)`
`300`	`300`	`)`
`301`	`301`	`}`