inst/tinytest/test_scale.R

# Rescale continuous vector ====================================================
expect_identical(scale_range(5:10), c(0, 0.2, 0.4, 0.6, 0.8, 1))

# Label percentage =============================================================
expect_identical(label_percent(c(0.01, 0.5), trim = FALSE), c(" 1%", "50%"))
expect_identical(label_percent(c(0.01, 0.5), trim = TRUE), c("1%", "50%"))
tesselle/arkhe documentation built on Feb. 22, 2024, 8:18 p.m.