Merge pull request #8 from billdenney/7-cannot-add-guides

Allow addition of `guides()` objects

Author: billdenney

NAMESPACE

@@ -12,6 +12,7 @@ S3method(print,gglist)
 S3method(vec_arith,gglist)
 S3method(vec_arith.gglist,gg)
 S3method(vec_arith.gglist,gglist)
+S3method(vec_arith.gglist,guides)
 S3method(vec_arith.gglist,labels)
 S3method(vec_arith.gglist,list)
 export(gglist)

NEWS.md

@@ -1,5 +1,6 @@
 # ggtibble 1.0.0.9000
 
+* `guides()` can now be added to `gglist` objects.
 * Labels created with the `labs` argument to `ggtibble()` will not longer all be
   the same (#3)
 * `new_gglist()` and `new_ggtibble()` are now exported making it easier to

R/gglist.R

@@ -99,12 +99,10 @@ vec_arith.gglist.gg <- function(op, x, y, ...) {
 }
 #' @export
 #' @method vec_arith.gglist labels
-vec_arith.gglist.labels <- function(op, x, y, ...) {
-  stopifnot(op == "+")
-  new_gglist(
-    lapply(FUN = "+", X = x, y, ...)
-  )
-}
+vec_arith.gglist.labels <- vec_arith.gglist.gg
+#' @export
+#' @method vec_arith.gglist guides
+vec_arith.gglist.guides <- vec_arith.gglist.gg
 
 #' @importFrom knitr knit_print
 #' @export

tests/testthat/test-gglist.R

@@ -21,6 +21,11 @@ test_that("vec_arith for gglists", {
     g1 + ggplot2::labs(x = "foo"),
     "gglist"
   )
+  # add a guides object to a single gglist
+  expect_s3_class(
+    g1 + ggplot2::guides(colour = ggplot2::guide_legend(ncol = 1)),
+    "gglist"
+  )
   # add a list of items to a single gglist
   expect_s3_class(
     g1 + list(ggplot2::labs(x = "foo")),