diff --git a/R/utilities.R b/R/utilities.R index 1fc2025..f52797e 100644 --- a/R/utilities.R +++ b/R/utilities.R @@ -64,7 +64,7 @@ GeomConfint <- ggplot2::ggproto('GeomConfint', ggplot2::GeomRibbon, if (na.rm) data <- data[stats::complete.cases(self$required_aes), ] data <- data[order(data$group, data$x), ] data <- self$stairstep_confint(data) - ggplot2:::GeomRibbon$draw_group(data, panel_scales, coord, na.rm = na.rm) + ggplot2::GeomRibbon$draw_group(data, panel_scales, coord, na.rm = na.rm) }, stairstep_confint = function (data) { data <- as.data.frame(data)[order(data$x), ] @@ -90,7 +90,7 @@ GeomConfint_old <- ggplot2::ggproto('GeomConfint_old', ggplot2::GeomRibbon, # if (na.rm) data <- data[stats::complete.cases(self$required_aes), ] # data <- data[order(data$group, data$x), ] # data <- self$stairstep_confint(data) -# ggplot2:::GeomRibbon$draw_group(data, panel_scales, coord, na.rm = FALSE) +# ggplot2::GeomRibbon$draw_group(data, panel_scales, coord, na.rm = FALSE) # }, # stairstep_confint = function (data) { # data <- as.data.frame(data)[order(data$x), ]