Added option for DiagrammeR footnotes

jrgant · Oct 19, 2017 · 45b012a · 45b012a
1 parent 4379047
commit 45b012a
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 2 deletions.
diff --git a/CHANGELOG.txt b/CHANGELOG.txt
@@ -1,3 +1,9 @@
+[2017-10-19] --
+
+## Added
+
+- Option to include footnotes when writing full graph code
+
 [2017-04-03] --
 
 ## Added

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)
     )
 
   }