fix & and * operators

Polkas · Nov 14, 2024 · 71f1812 · 71f1812
1 parent 6d4c9b0
commit 71f1812
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/patchwork.R b/R/patchwork.R
@@ -38,7 +38,7 @@
 #' @export
 "*.ggcall" <- function(e1, e2) {
   validate_patchwork()
-  plot <- utils::getFromNamespace("*.ggplot", "patchwork")(e1, e2)
+  plot <- utils::getFromNamespace("*.gg", "patchwork")(e1, e2)
   if (inherits(e1, "ggcall") && inherits(e2, "ggcall")) {
     attr(plot, "ggcall") <- bquote(.(ggcall(e1)) * .(ggcall(e2)))
     attr(plot, "ggcall_env") <- merge_env(attr(e1, "ggcall_env"), attr(e2, "ggcall_env"))
@@ -50,7 +50,7 @@
 #' @export
 "&.ggcall" <- function(e1, e2) {
   validate_patchwork()
-  plot <- utils::getFromNamespace("&.ggplot", "patchwork")(e1, e2)
+  plot <- utils::getFromNamespace("&.gg", "patchwork")(e1, e2)
   if (inherits(e1, "ggcall") && inherits(e2, "ggcall")) {
     attr(plot, "ggcall") <- bquote(.(ggcall(e1)) & .(ggcall(e2)))
     attr(plot, "ggcall_env") <- merge_env(attr(e1, "ggcall_env"), attr(e2, "ggcall_env"))