From e9fd02782b4d04332e4413a21fe43cfed092c3e2 Mon Sep 17 00:00:00 2001
From: Jason Gantenberg <jason.gantenberg@gmail.com>
Date: Thu, 19 Oct 2017 00:16:53 -0400
Subject: [PATCH] Added option for DiagrammeR footnotes

---
 R/makeDAG.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/makeDAG.R b/R/makeDAG.R
index d9ad846..e8de00d 100644
--- 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)
     )
 
   }