Allow NULL labels

Author: billdenney

NEWS.md

@@ -1,5 +1,6 @@
 # ggtibble 1.0.0.9000
 
+* `labs` argument to `ggtibble()` can now include `NULL (#6)
 * `guides()` can now be added to `gglist` objects.
 * Labels created with the `labs` argument to `ggtibble()` will not longer all be
   the same (#3)

R/labs_glue.R

@@ -15,6 +15,10 @@ labs_glue <- function(p, ...) {
   labs_args <- list()
   for (nm in names(args)) {
     labs_args[[nm]] <- glue::glue_data(p, args[[nm]])
+    if (length(labs_args[[nm]]) == 0) {
+      # handle NULL inputs
+      labs_args[[nm]] <- rep(list(labs_args[[nm]]), nrow(p))
+    }
   }
   purrr::pmap(.l = labs_args, .f = ggplot2::labs)
 }

tests/testthat/test-ggtibble.R

@@ -65,10 +65,35 @@ test_that("ggtibble", {
     regexp = "Unary operations are not defined for ggtibble objects",
     fixed = TRUE
   )
-  v5 <- v4 + ggplot2::geom_point()
+  v5 <-
+    ggtibble(
+      data.frame(A = 1:2, B = 3:4),
+      ggplot2::aes(x = B, y = B),
+      outercols = "A",
+      labs = list(x = "A is {A}")
+    ) +
+    ggplot2::geom_point()
   expect_equal(nrow(v5), 2)
   expect_equal(v4$figure[[1]]$layers, list())
   expect_s3_class(v5$figure[[1]]$layers[[1]]$geom, "GeomPoint")
+
+  # NULL labels work (#6)
+  v6 <-
+    ggtibble(
+      data.frame(A = 1:2, B = 3:4),
+      ggplot2::aes(x = B, y = B),
+      outercols = "A",
+      labs = list(x = "A is {A}", y = NULL)
+    ) +
+    ggplot2::geom_point()
+  expect_equal(
+    v6$figure[[1]]$labels$x,
+    "A is 1"
+  )
+  expect_equal(
+    v6$figure[[1]]$labels$y,
+    character(0)
+  )
 })
 
 test_that("knit_print.ggtibble", {

tests/testthat/test-labs_glue.R

@@ -22,4 +22,11 @@ test_that("labs_glue", {
       ggplot2::labs(y = "B")
     )
   )
+  expect_equal(
+    labs_glue(d_ggtibble, x = NULL, y = "{A}"),
+    list(
+      ggplot2::labs(x = character(0), y = "A"),
+      ggplot2::labs(x = character(0), y = "B")
+    )
+  )
 })