Fix package anchor for links in aesthetics

thackl · Jun 19, 2024 · 33d69c9 · 33d69c9
1 parent 750564f
commit 33d69c9
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 9 deletions.
diff --git a/R/aaa.R b/R/aaa.R
@@ -120,7 +120,7 @@ qc <- function(...) sapply(match.call()[-1], deparse)
 # CRAN Workaround for unexported useful tidyverse internals
 # https://stackoverflow.com/questions/32535773/using-un-exported-function-from-another-r-package
 ggplot2__ggname <- utils::getFromNamespace("ggname", "ggplot2")
-ggplot2__rd_aesthetics <- utils::getFromNamespace("rd_aesthetics", "ggplot2")
+ggplot2__rd_aesthetics <- \(x,y) utils::getFromNamespace("rd_aesthetics", "ggplot2")(x, y) |> stringr::str_replace(stringr::fixed("link[="), "link[ggplot2:")
 ggplot2__scales_list <- utils::getFromNamespace("scales_list", "ggplot2")
 ggplot2__guides_list <- utils::getFromNamespace("guides_list", "ggplot2")
 ggplot2__make_labels <- utils::getFromNamespace("make_labels", "ggplot2")

diff --git a/man/geom_gene.Rd b/man/geom_gene.Rd