Merge pull request #27 from nrennie/parse-text

parse geom text

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: ggflowchart
 Title: Flowcharts with 'ggplot2'
-Version: 1.0.0.9003
+Version: 1.0.0.9004
 Authors@R: 
     person(given = "Nicola",
            family = "Rennie",

NEWS.md

@@ -11,6 +11,7 @@
 * Add contributor guidelines
 * Allow `x_nudge` and `y_nudge` to vary for each node. (issue #12)
 * Add option for custom layout (issue #11)
+* Add option to parse text in nodes.
 
 ## ggflowchart 1.0.0 2023_05_10
 

R/ggflowchart.R

@@ -21,6 +21,8 @@
 #' or hex code, or the name of a column in node_data (quoted or unquoted).
 #' Column names take priority over names of colours. Default `"black"`.
 #' @param text_size Font size of labels in nodes. Default 3.88.
+#' @param parse If TRUE, the labels will be parsed into expressions
+#' and displayed as described in ?plotmath. Default `FALSE`.
 #' @param arrow_colour Colour of arrows. Must be a valid colour name or hex
 #' code. Default `"black"`.
 #' @param arrow_size Size of arrow head. Default 0.3.
@@ -54,6 +56,7 @@ ggflowchart <- function(data,
                         alpha = 1,
                         text_colour = "black",
                         text_size = 3.88,
+                        parse = FALSE,
                         arrow_colour = "black",
                         arrow_size = 0.3,
                         arrow_linewidth = 0.5,
@@ -171,7 +174,8 @@ ggflowchart <- function(data,
           colour = !!text_colour
         ),
         family = family,
-        size = text_size
+        size = text_size,
+        parse = parse
       )
   } else {
     p <- p +
@@ -184,6 +188,7 @@ ggflowchart <- function(data,
         ),
         family = family,
         size = text_size,
+        parse = parse,
         colour = as.character(text_colour)
       )
   }