Fix example, add test

Author: billdenney

NEWS.md

@@ -2,4 +2,5 @@
 
 * Labels created with the `labs` argument to `ggtibble()` will not longer all be
   the same (#3)
-* `new_gglist()` is now exported making it easier to create a gglist object
+* `new_gglist()` and `new_ggtibble()` are now exported making it easier to
+  create objects.

R/ggtibble.R

@@ -74,12 +74,14 @@ ggtibble.data.frame <- function(data, mapping = ggplot2::aes(), ..., outercols =
 #' @returns The object with a ggtibble class
 #' @family New ggtibble objects
 #' @examples
-#' new_ggtibble(list(NULL, ggplot2::ggplot(data = data.frame())))
+#' new_ggtibble(tibble::tibble(figure = list(ggplot2::ggplot()), caption = ""))
 #' @export
 new_ggtibble <- function(x) {
   stopifnot(is.data.frame(x))
   stopifnot(c("figure", "caption") %in% names(x))
-  stopifnot(inherits(x$figure, "gglist"))
+  if (!inherits(x$figure, "gglist")) {
+    x$figure <- new_gglist(x$figure)
+  }
   class(x) <- unique(c("ggtibble", class(x)))
   x
 }

tests/testthat/test-ggtibble.R

@@ -141,3 +141,10 @@ test_that("labels are not always the same (#3)", {
 
   expect_true(fig1$labels$x != fig2$labels$x)
 })
+
+test_that("new_ggtibble() works", {
+  expect_s3_class(
+    new_ggtibble(tibble::tibble(figure = list(ggplot2::ggplot()), caption = "")),
+    "ggtibble"
+  )
+})