Merge pull request #449 from danielkrizian/master

toJSON digits parameterization. See danielkrizian/rChartsDygraphs#14
ramnathv · Aug 4, 2014 · f6eb944 · f6eb944
2 parents 47e2c06 + 6b1a2aa
commit f6eb944
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/R/rChartsClass.R b/R/rChartsClass.R
@@ -56,7 +56,11 @@ rCharts = setRefClass('rCharts', list(params = 'list', lib = 'character',
     params <<- modifyList(params, list(...))
   },
   getPayload = function(chartId){
-    list(chartParams = toJSON(params), chartId = chartId, lib = basename(lib), liburl = LIB$url)
+    if(!is.null(params$digits))
+      JSONized = toJSON(params, digits=params$digits)
+    else
+      JSONized = toJSON(params)
+    list(chartParams = JSONized, chartId = chartId, lib = basename(lib), liburl = LIB$url)
   },
   html = function(chartId = NULL){
     params$dom <<- chartId %||% params$dom