Nothing
skip_on_cran()
test_that("correct rounding near thresholds", {
expect_equal(
c(1.0001, 1, 0.9999, 0.90000) %>% style_sigfig(digits = 1),
c("1", "1", "1", "0.9")
)
expect_true(
style_sigfig(-9.98) == "-10"
)
expect_equal(
style_sigfig(seq(from = 9.94, to = 10, by = 0.01)),
c("9.9", "10", "10", "10", "10", "10", "10")
)
expect_true(
style_sigfig(0.97, digits = 1) == "1"
)
vec2 <- c(one = 0.99, two = 0.0005)
expect_equal(
attributes(vec2),
style_sigfig(vec2) %>% attributes()
)
})
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.