commit 1575912022e65ff7710e8879e50e64b5584180fc Author: Karsten Loesing <karsten.loesing@gmx.net> Date: Mon Oct 28 14:39:22 2013 +0100 Fix visualization bug in user graphs. --- rserve/graphs.R | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/rserve/graphs.R b/rserve/graphs.R index 9070308..8a62bf4 100644 --- a/rserve/graphs.R +++ b/rserve/graphs.R @@ -689,8 +689,9 @@ plot_direct_users <- function(start, end, country, events, path) { if (events == "on") { if (length(r$maxusers) > 0) max_y <- max(max_y, max(r$maxusers, na.rm = TRUE)) + r[r$minusers < 0, "minusers"] <- 0 plot <- plot + - geom_ribbon(data = r, aes(ymin = max(0, minusers), + geom_ribbon(data = r, aes(ymin = minusers, ymax = maxusers), fill = "gray") } if (length(upturns$date) > 0) @@ -1085,8 +1086,9 @@ plot_userstats <- function(start, end, node, variable, value, events, if (events == "on") { if (length(r$maxusers) > 0) max_y <- max(max_y, max(r$maxusers, na.rm = TRUE)) + r[r$minusers < 0, "minusers"] <- 0 plot <- plot + - geom_ribbon(data = r, aes(ymin = max(0, minusers), + geom_ribbon(data = r, aes(ymin = minusers, ymax = maxusers), fill = "gray") } if (length(upturns$date) > 0)