commit 33f8f038763e18a84122014e07b3c1c1f1ffc0a2 Author: Karsten Loesing karsten.loesing@gmx.net Date: Wed Jun 8 15:09:08 2016 +0200
Make y axis labels more readable.
Fixes #19347. --- website/rserve/graphs.R | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/website/rserve/graphs.R b/website/rserve/graphs.R index 87ac39a..cfae47c 100644 --- a/website/rserve/graphs.R +++ b/website/rserve/graphs.R @@ -862,7 +862,8 @@ plot_userstats <- function(start, end, node, variable, value, events, date = seq(from = as.Date(start, "%Y-%m-%d"), to = as.Date(end, "%Y-%m-%d"), by="1 day"), value = ifelse(value == 'all', '', value)))) - formatter <- function(x, ...) { format(x, scientific = FALSE, ...) } + formatter <- function(x, ...) { + format(x, ..., scientific = FALSE, big.mark = '\u2006') } date_breaks <- date_breaks( as.numeric(max(u$date) - min(u$date))) max_y <- ifelse(length(na.omit(u$users)) == 0, 0,