fix error when add ggplot element to ggalign_plot

Yunuuuu · Dec 15, 2024 · c44e451 · c44e451
1 parent 5c9db90
commit c44e451
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 1 deletion.
diff --git a/R/plot-.R b/R/plot-.R
@@ -98,7 +98,7 @@ methods::setMethod("+", c("ggalign_plot", "ANY"), function(e1, e2) {
     # can be displayed in error messages
     e2name <- deparse(substitute(e2))
     switch(.Generic, # nolint
-        `+` = plot_add(e1, e2, e2name),
+        `+` = plot_add(e2, e1, e2name),
         stop_incompatible_op(.Generic, e1, e2)
     )
 })

diff --git a/tests/testthat/test-plot.R b/tests/testthat/test-plot.R
@@ -0,0 +1,5 @@
+test_that("add ggplot elements works well", {
+    expect_no_error(ggalign() + geom_point())
+    expect_no_error(ggfree() + geom_point())
+    expect_no_error(ggcross() + geom_point())
+})