handle NAs.

NEWS.md

@@ -1,6 +1,7 @@
 # gridtext devel
 
-- `richtext_grob()` and `textbox_grob()` now gracefully handle empty strings.
+- `richtext_grob()` and `textbox_grob()` now gracefully handle empty strings
+  and NAs.
 
 # gridtext 0.1.0
 

R/richtext-grob.R

@@ -98,6 +98,8 @@ richtext_grob <- function(text, x = unit(0.5, "npc"), y = unit(0.5, "npc"),
 
   # make sure we can handle input text even if provided as factor
   text <- as.character(text)
+  # convert NAs to empty strings
+  text <- ifelse(is.na(text), "", text)
 
   # make sure margin and padding are of length 4
   margin <- rep(margin, length.out = 4)

R/textbox-grob.R

@@ -172,6 +172,8 @@ textbox_grob <- function(text, x = NULL, y = NULL,
 
   # make sure we can handle input text even if provided as factor
   text <- as.character(text)
+  # convert NAs to empty strings
+  text <- ifelse(is.na(text), "", text)
 
   # determine orientation and adjust accordingly
   orientation <- match.arg(orientation)

tests/testthat/test-richtext-grob.R

@@ -83,6 +83,9 @@ test_that("misc. tests", {
   # empty strings work
   expect_silent(richtext_grob(""))
   expect_silent(richtext_grob(" "))
+
+  # NAs work
+  expect_silent(richtext_grob(c(" ", "abc", NA)))
 })
 
 test_that("visual tests", {

tests/testthat/test-textbox-grob.R

@@ -4,6 +4,9 @@ test_that("misc. tests", {
   # empty strings work
   expect_silent(textbox_grob(""))
   expect_silent(textbox_grob(" "))
+
+  # NAs work
+  expect_silent(textbox_grob(NA))
 })
 
 test_that("visual tests", {