commit a1c10633785a3644bf2c47dc27a796a5252d356f Author: Karsten Loesing karsten.loesing@gmx.net Date: Fri Nov 11 20:45:32 2016 +0100
Cut off expected range at zero.
Fixes #20633. --- website/rserve/graphs.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/website/rserve/graphs.R b/website/rserve/graphs.R index 9950a15..f742fe3 100644 --- a/website/rserve/graphs.R +++ b/website/rserve/graphs.R @@ -866,7 +866,7 @@ plot_userstats <- function(start, end, node, variable, value, events, if (events == "on") { u[!is.na(u$lower) & u$lower < 0, "lower"] <- 0 plot <- plot + - geom_ribbon(aes(ymin = lower, ymax = upper), fill = "gray") + geom_ribbon(data = u, aes(ymin = lower, ymax = upper), fill = "gray") } if (length(upturns$date) > 0) plot <- plot +