Update with starter for 10 flow diagram

Author: Robinlovelace

README.Rmd

@@ -9,16 +9,30 @@ knitr::opts_chunk$set(
   collapse = TRUE,
   comment = "#>"
 )
+x = c(1, 2)
 ```
 # c2d
 
 The goal of c2d is to host code for loading data used in creds2.
 
+Fun example in Python to show reproducible code:
+
 ```{r, engine='python'}
 import numpy as np
 x = [1, 2, 4, 9]
 y = [2, 3, 5, 6]
-import matplotlib
+# import matplotlib
 z = np.add(x, y)
 print(z)
 ```
+
+## Flow diagram
+
+The plot below, generated using reproducible code stored in the script `data-flow-diag.R`, is a data flow diagram ([DFD](https://en.wikipedia.org/wiki/Data_flow_diagram)).
+We will modify this as the project evolve as we clarify the work to be done.
+
+```{r, message=FALSE}
+source("data-flow-diag.R")
+render_graph(g, layout = "tree")
+```
+

README.md

@@ -5,12 +5,28 @@
 
 The goal of c2d is to host code for loading data used in creds2.
 
+Fun example in Python to show reproducible code:
+
 ``` python
 import numpy as np
 x = [1, 2, 4, 9]
 y = [2, 3, 5, 6]
-import matplotlib
+# import matplotlib
 z = np.add(x, y)
 print(z)
 #> [ 3  5  9 15]
 ```
+
+## Flow diagram
+
+The plot below, generated using reproducible code stored in the script
+`data-flow-diag.R`, is a data flow diagram
+([DFD](https://en.wikipedia.org/wiki/Data_flow_diagram)). We will modify
+this as the project evolve as we clarify the work to be done.
+
+``` r
+source("data-flow-diag.R")
+render_graph(g, layout = "tree")
+```
+
+![](README_files/figure-gfm/unnamed-chunk-2-1.png)<!-- -->

README_files/figure-gfm/unnamed-chunk-2-1.png

@@ -0,0 +1,28 @@
+# install.packages("DiagrammeR")
+library(DiagrammeR)
+library(dplyr)
+ndf = create_node_df(n = 5, label = TRUE)
+ndf$label = c("MOT", "Census", "Traffic", "Processing", "Scenarios")
+ndf$shape = "square"
+ndf$shape[4] = "triangle"
+ndf$shape[5] = "circle"
+
+edf = create_edge_df(
+  from = c(1, 2, 3, 4),
+  to = c(4, 4, 4, 5)
+)
+g = create_graph(nodes_df = ndf, edges_df = edf, graph_name = "cyipt", directed = TRUE)
+
+# save_graph(x = g, file = "g.dot")
+# generate_dot(g) %>% 
+#   grViz()
+
+# DiagrammeR::mermaid(g)
+
+# mermaid("
+# graph LR
+# A(OSM)-->D[Road Network]
+# B[PCT]-->D[Road Network]
+# C[MasterMap]-->D[Road Network]
+# ")
+