use parse_safe() in sf.R

This patch fixes an example that triggers an error:

    library(ggplot2)
    nc <- sf::st_read(system.file("shape/nc.shp", package = "sf"), quiet = TRUE)
    ggplot(nc) +
      geom_sf(aes(fill = AREA)) +
      scale_y_continuous(
        breaks = c(34, 35, 36),
        labels = c("34*degree*N", "", "36*degree*N")
      )
    #> Error in parse(text = x)[[1]]: subscript out of bounds

See #2867 for more details.

Author: slowkow

R/sf.R

@@ -476,10 +476,6 @@ 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]])
-
     graticule
   },
 
@@ -551,13 +547,21 @@ CoordSf <- ggproto("CoordSf", CoordCartesian,
 
   render_axis_h = function(self, panel_params, theme) {
     graticule <- panel_params$graticule
+    # browser()
     east <- graticule[graticule$type == "E" & !is.na(graticule$degree_label), ]
 
+    labs <- east$degree_label
+
+    # parse labels into expressions if required
+    if (any(grepl("degree", labs))) {
+      labs <- parse_safe(as.character(labs))
+    }
+
     list(
       top = nullGrob(),
       bottom = guide_axis(
         east$x_start,
-        east$degree_label,
+        labs,
         position = "bottom",
         theme = theme
       )
@@ -568,10 +572,17 @@ CoordSf <- ggproto("CoordSf", CoordCartesian,
     graticule <- panel_params$graticule
     north <- graticule[graticule$type == "N" & !is.na(graticule$degree_label), ]
 
+    labs <- north$degree_label
+
+    # parse labels into expressions if required
+    if (any(grepl("degree", labs))) {
+      labs <- parse_safe(as.character(labs))
+    }
+
     list(
       left = guide_axis(
         north$y_start,
-        north$degree_label,
+        labs,
         position = "left",
         theme = theme
       ),