From 6b1a2aa6b60f2c24f1b7fa53cc5531029f2e0ccb Mon Sep 17 00:00:00 2001
From: Daniel Krizian <daniel.krizian@gmail.com>
Date: Fri, 20 Jun 2014 18:56:11 +0100
Subject: [PATCH] toJSON digits parameterization. See
 danielkrizian/rChartsDygraphs#14

---
 R/rChartsClass.R | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/R/rChartsClass.R b/R/rChartsClass.R
index 9f718e4..822ebb3 100644
--- 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