Nothing
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]")
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.