commit 33f8f038763e18a84122014e07b3c1c1f1ffc0a2
Author: Karsten Loesing <karsten.loesing(a)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,