commit 61baccd4ddf48dcd3544227a70a05067a7eb69c8 Author: Karsten Loesing karsten.loesing@gmx.net Date: Wed Dec 25 16:38:28 2013 +0100
Handle missing censorship detector data. --- rserve/graphs.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/rserve/graphs.R b/rserve/graphs.R index ea25a1d..5538e68 100644 --- a/rserve/graphs.R +++ b/rserve/graphs.R @@ -883,7 +883,7 @@ plot_userstats <- function(start, end, node, variable, value, events, if (events == "on") { if (length(u$upper) > 0) max_y <- max(max_y, max(u$upper, na.rm = TRUE)) - u[u$lower < 0, "lower"] <- 0 + u[!is.na(u$lower) & u$lower < 0, "lower"] <- 0 plot <- plot + geom_ribbon(aes(ymin = lower, ymax = upper), fill = "gray") }