digits = NA once again prints 15 digits max

This partially reverts #412 Fixes #420
jeroen · Jun 27, 2023 · 120cca8 · 120cca8
1 parent 41ffee7
commit 120cca8
Show file tree

Hide file tree

Showing 4 changed files with 6 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,5 +1,5 @@
 Package: jsonlite
-Version: 1.8.6
+Version: 1.8.7
 Title: A Simple and Robust JSON Parser and Generator for R
 License: MIT + file LICENSE
 Depends: methods

diff --git a/NEWS b/NEWS
@@ -1,3 +1,6 @@
+1.8.7
+  - toJSON(digits = NA) once again prints 15 digits max
+
 1.8.6
   - Add method [.json such that subsetting keeps json class
 

diff --git a/src/num_to_char.c b/src/num_to_char.c
@@ -51,7 +51,7 @@ SEXP R_num_to_char(SEXP x, SEXP digits, SEXP na_as_string, SEXP use_signif, SEXP
         }
       } else {
         if(precision == NA_INTEGER){
-          snprintf(buf, 32, "%.17g", val);
+          snprintf(buf, 32, "%.15g", val);
         } else if(signif){
           //use signifant digits rather than decimal digits
           snprintf(buf, 32, "%.*g", sig_digits, val);

diff --git a/tests/testthat/test-toJSON-numeric.R b/tests/testthat/test-toJSON-numeric.R
@@ -11,6 +11,7 @@ test_that("Encoding Numbers", {
   expect_that(toJSON(c(pi, NA), na="null", digits=5), equals("[3.14159,null]"));
   expect_that(toJSON(c(pi, NA), na="null", digits=5), equals("[3.14159,null]"));
   expect_that(toJSON(c(1478002353.51369, -521997646.486311) * 1000, digits = 0), equals("[1478002353514,-521997646486]"));
+  expect_that(toJSON(list(a=c(0.1)), digits = NA), equals('{"a":[0.1]}'));
 });
 
 test_that("Encoding Numbers in Data Frame", {