From 45b012a0341ba2d0718e98d0a9c82708c16a75d0 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

---
 CHANGELOG.txt | 6 ++++++
 R/makeDAG.R   | 4 ++--
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/CHANGELOG.txt b/CHANGELOG.txt
index 3bbdc06..7ab3c7b 100644
--- 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
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)
     )
 
   }