redirect Scale class docs to ?Scale

Author: teunbrand

R/scale-.R

@@ -984,7 +984,7 @@ default_transform <- function(self, x) {
   new_x
 }
 
-#' @rdname ggplot2-ggproto
+#' @rdname Scale
 #' @format NULL
 #' @usage NULL
 #' @export
@@ -1268,7 +1268,7 @@ ScaleContinuous <- ggproto("ScaleContinuous", Scale,
 
 # ScaleDiscrete -----------------------------------------------------------
 
-#' @rdname ggplot2-ggproto
+#' @rdname Scale
 #' @format NULL
 #' @usage NULL
 #' @export
@@ -1500,7 +1500,7 @@ ScaleDiscrete <- ggproto("ScaleDiscrete", Scale,
 
 # ScaleBinned -------------------------------------------------------------
 
-#' @rdname ggplot2-ggproto
+#' @rdname Scale
 #' @format NULL
 #' @usage NULL
 #' @export

R/scale-binned.R

@@ -61,7 +61,7 @@ scale_y_binned <- function(name = waiver(), n.breaks = 10, nice.breaks = TRUE,
   )
 }
 
-#' @rdname ggplot2-ggproto
+#' @rdname Scale
 #' @format NULL
 #' @usage NULL
 #' @export

R/scale-continuous.R

@@ -131,7 +131,7 @@ scale_y_continuous <- function(name = waiver(), breaks = waiver(),
 }
 
 
-#' @rdname ggplot2-ggproto
+#' @rdname Scale
 #' @format NULL
 #' @usage NULL
 #' @export

R/scale-date.R

@@ -374,7 +374,7 @@ datetime_scale <- function(aesthetics, transform, trans = deprecated(),
   sc
 }
 
-#' @rdname ggplot2-ggproto
+#' @rdname Scale
 #' @format NULL
 #' @usage NULL
 #' @export
@@ -427,7 +427,7 @@ ScaleContinuousDatetime <- ggproto("ScaleContinuousDatetime", ScaleContinuous,
 
 )
 
-#' @rdname ggplot2-ggproto
+#' @rdname Scale
 #' @format NULL
 #' @usage NULL
 #' @export

R/scale-discrete-.R

@@ -111,7 +111,7 @@ scale_y_discrete <- function(name = waiver(), ..., palette = seq_len,
 # mapping, but makes it possible to place objects at non-integer positions,
 # as is necessary for jittering etc.
 
-#' @rdname ggplot2-ggproto
+#' @rdname Scale
 #' @format NULL
 #' @usage NULL
 #' @export

R/scale-identity.R

@@ -170,7 +170,7 @@ scale_continuous_identity <- function(aesthetics, name = waiver(), ...,
   )
 }
 
-#' @rdname ggplot2-ggproto
+#' @rdname Scale
 #' @format NULL
 #' @usage NULL
 #' @export
@@ -191,7 +191,7 @@ ScaleDiscreteIdentity <- ggproto("ScaleDiscreteIdentity", ScaleDiscrete,
 )
 
 
-#' @rdname ggplot2-ggproto
+#' @rdname Scale
 #' @format NULL
 #' @usage NULL
 #' @export