replace parse() with parse_safe() in geom_text()

NEWS.md

@@ -59,6 +59,11 @@
 *   `position_nudge()` is now more robust and nudges only in the direction
     requested. This enables, for example, the horizontal nudging of boxplots
     (@clauswilke, #2733).
+
+*   `geom_text(..., parse = TRUE)` now correctly renders the expected number of
+    items instead of silently dropping items that are not valid expressions.
+    This is also fixed for `geom_label()` and the axis labels for `geom_sf()`
+    (@slowkow, #2867).
 
 # ggplot2 3.0.0
 

R/geom-label.R

@@ -63,7 +63,7 @@ GeomLabel <- ggproto("GeomLabel", Geom,
                         label.size = 0.25) {
     lab <- data$label
     if (parse) {
-      lab <- parse(text = as.character(lab))
+      lab <- parse_safe(as.character(lab))
     }
 
     data <- coord$transform(data, panel_params)

R/geom-text.r

@@ -159,7 +159,6 @@ geom_text <- function(mapping = NULL, data = NULL,
   )
 }
 
-
 #' @rdname ggplot2-ggproto
 #' @format NULL
 #' @usage NULL
@@ -176,7 +175,7 @@ GeomText <- ggproto("GeomText", Geom,
                         na.rm = FALSE, check_overlap = FALSE) {
     lab <- data$label
     if (parse) {
-      lab <- parse(text = as.character(lab))
+      lab <- parse_safe(as.character(lab))
     }
 
     data <- coord$transform(data, panel_params)

R/sf.R

@@ -476,9 +476,20 @@ CoordSf <- ggproto("CoordSf", CoordCartesian,
     if (!is.null(graticule$plot12))
       graticule$degree_label[!graticule$plot12] <- NA
 
-    # parse labels into expressions if required
-    if (any(grepl("degree", graticule$degree_label)))
-      graticule$degree_label <- lapply(graticule$degree_label, function(x) parse(text = x)[[1]])
+    # Convert the string 'degree' to the degree symbol
+    parse_ids <- grepl("\\bdegree\\b", graticule$degree_label)
+    if (any(parse_ids)) {
+      graticule$degree_label <- Map(
+        function(parse_id, label) {
+          if (parse_id) {
+            parse(text = label)[[1]]
+          } else {
+            as.expression(label)[[1]]
+          }
+        },
+        parse_ids, graticule$degree_label
+      )
+    }
 
     graticule
   },

R/utilities.r

@@ -430,3 +430,21 @@ is_column_vec <- function(x) {
   dims <- dim(x)
   length(dims) == 2L && dims[[2]] == 1L
 }
+
+# Parse takes a vector of n lines and returns m expressions.
+# See https://github.com/tidyverse/ggplot2/issues/2864 for discussion.
+#
+# parse(text = c("alpha", "", "gamma"))
+# #> expression(alpha, gamma)
+#
+# parse_safe(text = c("alpha", "", "gamma"))
+# #> expression(alpha, NA, gamma)
+#
+parse_safe <- function(text) {
+  out <- vector("expression", length(text))
+  for (i in seq_along(text)) {
+    expr <- parse(text = text[[i]])
+    out[[i]] <- if (length(expr) == 0) NA else expr[[1]]
+  }
+  out
+}

tests/testthat/test-utilities.r

@@ -43,3 +43,52 @@ test_that("find_args behaves correctly", {
   # Defaults are overwritten
   expect_true(test_fun(arg2 = TRUE)$arg2)
 })
+
+test_that("parse_safe works with simple expressions", {
+  expect_equal(
+    parse_safe(c("", " ", "     ")),
+    expression(NA, NA, NA)
+  )
+
+  expect_equal(
+    parse_safe(c("A", "B", "C")),
+    expression(A, B, C)
+  )
+
+  expect_equal(
+    parse_safe(c("alpha", "", "gamma", " ")),
+    expression(alpha, NA, gamma, NA)
+  )
+
+  expect_equal(
+    parse_safe(c(NA, "a", NA, "alpha")),
+    expression(NA, a, NA, alpha)
+  )
+
+  expect_equal(
+    parse_safe(factor(c("alpha", "beta", ""))),
+    expression(2, 3, 1)
+  )
+})
+
+test_that("parse_safe works with multi expressions", {
+  expect_equal(
+    parse_safe(c(" \n", "\n ", " \n  \n  ")),
+    expression(NA, NA, NA)
+  )
+
+  expect_equal(
+    parse_safe(c("alpha ~ beta", "beta \n gamma", "")),
+    expression(alpha ~ beta, beta, NA)
+  )
+
+  expect_equal(
+    parse_safe(c("alpha ~ beta", " ", "integral(f(x) * dx, a, b)")),
+    expression(alpha ~ beta, NA, integral(f(x) * dx, a, b))
+  )
+
+  expect_equal(
+    parse_safe(c(NA, 1, 2, "a \n b")),
+    expression(NA, 1, 2, a)
+  )
+})