commit cc795da2d1f901d6fd45b4cb6fc0ec22978d4194
Author: Karsten Loesing <karsten.loesing(a)gmx.net>
Date: Tue Aug 2 21:10:35 2016 +0200
Make y axis labels even more readable.
In 33f8f03 we changed thousands separators in some graphs to the thin
space character U+2006, but that didn't get displayed correctly in all
cases. Let's just use a regular space.
---
website/rserve/graphs.R | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/website/rserve/graphs.R b/website/rserve/graphs.R
index ca25bf7..da80652 100644
--- a/website/rserve/graphs.R
+++ b/website/rserve/graphs.R
@@ -849,7 +849,7 @@ plot_userstats <- function(start, end, node, variable, value, events,
to = as.Date(end, "%Y-%m-%d"), by="1 day"),
value = ifelse(value == 'all', '', value))))
formatter <- function(x, ...) {
- format(x, ..., scientific = FALSE, big.mark = '\u2006') }
+ format(x, ..., scientific = FALSE, big.mark = ' ') }
date_breaks <- date_breaks(
as.numeric(max(u$date) - min(u$date)))
max_y <- ifelse(length(na.omit(u$users)) == 0, 0,
@@ -937,7 +937,7 @@ plot_userstats_bridge_combined <- function(start, end, country, path) {
a <- a[order(a$mid, decreasing = TRUE)[1:top], ]
u <- u[u$transport %in% a$transport, ]
formatter <- function(x, ...) {
- format(x, ..., scientific = FALSE, big.mark = '\u2006') }
+ format(x, ..., scientific = FALSE, big.mark = ' ') }
max_y <- ifelse(length(na.omit(u$high)) == 0, 0,
max(u$high, na.rm = TRUE))
title <- paste("Bridge users by transport from ",