fix: set unlimited number of digits when serializing an R decimal to JSON

Author: ymarcon

opal-r/src/main/java/org/obiba/opal/r/rserve/RserveConnection.java

@@ -72,7 +72,7 @@ public RServerResult eval(String expr, RSerialize serialize) throws RServerExcep
     if (RSerialize.RAW == serialize) {
       cmd = String.format("try(serialize({%s}, NULL))", expr);
     } else if (RSerialize.JSON == serialize) {
-      cmd = String.format("try(tryCatch(jsonlite::toJSON(%s, auto_unbox = T), error = function(e) { jsonlite::serializeJSON(%s) }))", expr, expr);
+      cmd = String.format("try(tryCatch(jsonlite::toJSON(%s, auto_unbox = T, digits = NA), error = function(e) { jsonlite::serializeJSON(%s) }))", expr, expr);
     } else {
       cmd = String.format("try(%s)", expr);
     }

opal-r/src/main/resources/.execute.SQL.R

@@ -2,7 +2,7 @@
 .execute.SQL.JSON <- function(query, path = 'out.json') {
     if (!require('sqldf')) { install.packages('sqldf', repos = "https://cloud.r-project.org") }
     toJSON <- function(df) {
-        jsonlite::toJSON(list(columns = names(df), rows = df), dataframe = 'values', na = 'null')
+        jsonlite::toJSON(list(columns = names(df), rows = df), dataframe = 'values', na = 'null', digits = NA)
     }
     conn <- file(path)
     writeLines(toJSON(sqldf::sqldf(query)), conn)