add errors scales so that the mapping (comparisons) works even when probabilistic comparisons are enabled

Author: Enchufa2

NAMESPACE

@@ -67,6 +67,16 @@ export(errors)
 export(errors_max)
 export(errors_min)
 export(geom_errors)
+export(scale_alpha_errors)
+export(scale_color_errors)
+export(scale_colour_errors)
+export(scale_fill_errors)
+export(scale_linewidth_errors)
+export(scale_radius_errors)
+export(scale_size_area_errors)
+export(scale_size_errors)
+export(scale_x_errors)
+export(scale_y_errors)
 export(set_correl)
 export(set_covar)
 export(set_errors)

R/geom_errors.R

@@ -149,4 +149,72 @@ MakeGeomErrors <- function() ggplot2::ggproto(
 )
 
 # registered in .onLoad()
-scale_type.errors <- function(x) "continuous"
+scale_type.errors <- function(x) {
+  if (!"errors" %in% .packages())
+    stop("Variable of class 'errors' found, but 'errors' package is not attached.\n",
+         "  Please, attach it using 'library(errors)' to properly show scales with errors.")
+  c("errors", "continuous")
+}
+
+#' @export
+scale_x_errors <- function(...) {
+  make_scale_errors(ggplot2::scale_x_continuous(...))
+}
+
+#' @export
+scale_y_errors <- function(...) {
+  make_scale_errors(ggplot2::scale_y_continuous(...))
+}
+
+#' @export
+scale_colour_errors <- function(...) {
+  make_scale_errors(ggplot2::scale_colour_continuous(...))
+}
+
+#' @export
+scale_color_errors <- scale_colour_errors
+
+#' @export
+scale_fill_errors <- function(...) {
+  make_scale_errors(ggplot2::scale_fill_continuous(...))
+}
+
+#' @export
+scale_alpha_errors <- function(...) {
+  make_scale_errors(ggplot2::scale_alpha(...))
+}
+
+#' @export
+scale_size_errors <- function(...) {
+  make_scale_errors(ggplot2::scale_size(...))
+}
+
+#' @export
+scale_size_area_errors <- function(...) {
+  make_scale_errors(ggplot2::scale_size_area(...))
+}
+
+#' @export
+scale_radius_errors <- function(...) {
+  make_scale_errors(ggplot2::scale_radius(...))
+}
+
+#' @export
+scale_linewidth_errors <- function(...) {
+  make_scale_errors(ggplot2::scale_linewidth(...))
+}
+
+make_scale_errors <- function(parent) {
+  if (!requireNamespace("ggplot2", quietly=TRUE))
+    stop("package 'ggplot2' is required for this functionality", call.=FALSE)
+
+  ggplot2::ggproto(
+    paste0(class(parent)[1], "Errors"),
+    parent,
+
+    map = function(self, x, limits = self$get_limits()) {
+      # remove errors for comparisons
+      ggplot2::ggproto_parent(parent, self)$map(.v(x), limits)
+    }
+  )
+}