tests/testthat/test-opt-digits-signif.R

test_that("multiplication works", {

  nums <- c(0.001, 12.34567890123456)
  
  s <- write_json_str(nums)
  expect_identical(s, "[0.001,12.34567890123456]")
  
  s <- write_json_str(nums, digits_signif = 6)
  expect_identical(s, "[0.001,12.3457]")
  
  
  s <- write_json_str(nums, digits_signif = 3)
  expect_identical(s, "[0.001,12.3]")
  
  
})

Try the yyjsonr package in your browser

Any scripts or data that you put into this service are public.

yyjsonr documentation built on June 8, 2025, 10:47 a.m.