Adaptive rounding for tables

adapt_round(x)

Arguments

x	a numeric vector

a character vector comprising rounded values.

adapt_round(c(0.12, 10.12, 100.12))
#> [1] "0.12" "10.1" "100"