Added option for DiagrammeR footnotes

jrgant · Oct 19, 2017 · e9fd027 · e9fd027
1 parent 4379047
commit e9fd027
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/makeDAG.R b/R/makeDAG.R
@@ -70,7 +70,7 @@
 
 makeDAG <- function(graphcode = NULL, dagname = NULL, filetype = "pdf",
                     text.nodes = NULL, box.nodes = NULL,
-                    solid.edges = NULL, dashed.edges = NULL,
+                    solid.edges = NULL, dashed.edges = NULL, footnotes = NULL,
                     direction = "LR", embed = FALSE, ...) {
 
   # make dag visible to function
@@ -88,7 +88,7 @@ makeDAG <- function(graphcode = NULL, dagname = NULL, filetype = "pdf",
   } else {
 
     dag_object <- DiagrammeR::grViz(
-      paste("digraph{ graph[rankdir = ", direction, "]", graphcode, "}")
+      paste("digraph{ graph[rankdir = ", direction, "]", graphcode, "}", footnotes)
     )
 
   }