fix broken links

R/geom_outline_point.R

@@ -10,7 +10,7 @@
 #'
 #' @return A ggplot `Layer`
 #' @export
-#' @eval ggplot2:::rd_aesthetics("geom", "outline_point")
+#' @eval fixup_docs(ggplot2:::rd_aesthetics("geom", "outline_point"))
 #'
 #' @details Due to the way this geom is implemented, it handles the `alpha`
 #'   aesthetic pretty ungracefully.

R/geom_text_aimed.R

@@ -25,7 +25,7 @@
 #' @note When using this geom to aim text at the centre of a polar plot, make
 #'   sure the radius range does not have close to zero width.
 #'
-#' @eval ggplot2:::rd_aesthetics("geom", "text_aimed")
+#' @eval fixup_docs(ggplot2:::rd_aesthetics("geom", "text_aimed"))
 #' @examples
 #' # Point all labels to upper right corner
 #' ggplot(mtcars, aes(mpg, wt)) +

R/stat_difference.R

@@ -24,7 +24,7 @@
 #' When there is a run of more than two 0-difference values, the inner values
 #' will be ignored.
 #'
-#' @eval ggplot2:::rd_aesthetics("geom", "ribbon")
+#' @eval fixup_docs(ggplot2:::rd_aesthetics("geom", "ribbon"))
 #' @section Computed variables: \describe{
 #'  \item{`sign`}{A `factor` with the `levels` attribute set to the `levels`
 #'  argument.}

R/utils.R

@@ -36,6 +36,10 @@ height_cm <- function(x) {
   }
 }
 
+fixup_docs <- function(x) {
+  gsub("\\[=aes", "\\[ggplot2:aes", x)
+}
+
 # ggplot internals --------------------------------------------------------
 
 data_frame0 <- function(...) {data_frame(..., .name_repair = "minimal")}