P281424/AMR
1
0 Fork 0
mirror of https://github.com/msberends/AMR.git synced 2026-10-01 04:13:33 +02:00
Code Releases Activity

benchmarks plots

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends committed 2019-02-14 10:23:51 +01:00
1 parent ae44b185e6
commit efb2af9e3a
63 files changed
+668 -638
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

R/freq.R
+5 -4
View File
@@ -667,16 +667,17 @@ format_header <- function(x, markdown = FALSE, decimal.mark = ".", big.mark = ",
header <- header[names(header) != "na_length"]
# format all numeric values
header <- lapply(header, function(x)
if (is.numeric(x))
header <- lapply(header, function(x) {
if (is.numeric(x)) {
if (any(x < 1000)) {
format(round2(x, digits = digits), decimal.mark = decimal.mark, big.mark = big.mark)
} else {
format(x, digits = digits, decimal.mark = decimal.mark, big.mark = big.mark)
}
else
} else {
x
)
}
})
# numeric values
if (has_length == TRUE & any(x_class %in% c("double", "integer", "numeric", "raw", "single"))) {