Compare `f53b20c ... +1 ... 5644261`

#'   Markdown documents, and within Shiny output bindings.
#'
#' @examples
#' \dontrun{
#' \donttest{
#' # Create a simple graph running left to right (note
#' # that the whitespace is not important)
#' DiagrammeR("
#'   graph LR
#'     A-->B
#'     A-->C
#'     C-->E
#'     B-->D
#'     C-->D
#'     D-->F
#'     E-->F
#' ")
#' # DiagrammeR("
#' #   graph LR
#' #     A-->B
#' #     A-->C
#' #     C-->E
#' #     B-->D
#' #     C-->D
#' #     D-->F
#' #     E-->F
#' # ")
#'
#' # Create the equivalent graph but have it running
#' # from top to bottom
#' DiagrammeR("
#'    graph TB
#'    A-->B
#'    A-->C
#'    C-->E
#'    B-->D
#'    C-->D
#'    D-->F
#'    E-->F
#' ")
#' # DiagrammeR("
#' #    graph TB
#' #    A-->B
#' #    A-->C
#' #    C-->E
#' #    B-->D
#' #    C-->D
#' #    D-->F
#' #    E-->F
#' # ")
#'
#' # Create a graph with different node shapes and
#' # provide fill styles for each node
#' DiagrammeR("graph LR;A(Rounded)-->B[Squared];B-->C{A Decision};
#'  C-->D[Square One];C-->E[Square Two];
#'  style A fill:#E5E25F;  style B fill:#87AB51; style C fill:#3C8937;
#'  style D fill:#23772C;  style E fill:#B6E6E6;"
#' )
#' # DiagrammeR("graph LR;A(Rounded)-->B[Squared];B-->C{A Decision};
#' #  C-->D[Square One];C-->E[Square Two];
#' #  style A fill:#E5E25F;  style B fill:#87AB51; style C fill:#3C8937;
#' #  style D fill:#23772C;  style E fill:#B6E6E6;"
#' # )
#'
#' # Load in the 'mtcars' dataset
#' data(mtcars)
#' connections <- sapply(
#'  1:ncol(mtcars)
#'   ,function(i) {
#'      paste0(
#'         i
#'       ,"(",colnames(mtcars)[i],")---"
#'       ,i,"-stats("
#'       ,paste0(
#'         names(summary(mtcars[,i]))
#'         ,": "
#'         ,unname(summary(mtcars[,i]))
#'         ,collapse="<br/>"
#'       )
#'       ,")"
#'    )
#'  }
#' )
#' # data(mtcars)
#' # connections <- sapply(
#' #  1:ncol(mtcars)
#' #   ,function(i) {
#' #      paste0(
#' #         i
#' #       ,"(",colnames(mtcars)[i],")---"
#' #       ,i,"-stats("
#' #       ,paste0(
#' #         names(summary(mtcars[,i]))
#' #         ,": "
#' #         ,unname(summary(mtcars[,i]))
#' #         ,collapse="<br/>"
#' #       )
#' #       ,")"
#' #    )
#' #  }
#' # )
#'
#' # Create a diagram using the 'connections' object
#' DiagrammeR(
#'    paste0(
#'      "graph TD;", "\n",
#'      paste(connections, collapse = "\n"),"\n",
#'      "classDef column fill:#0001CC, stroke:#0D3FF3, stroke-width:1px;" ,"\n",
#'      "class ", paste0(1:length(connections), collapse = ","), " column;"
#'    )
#'  )
#' # DiagrammeR(
#' #    paste0(
#' #      "graph TD;", "\n",
#' #      paste(connections, collapse = "\n"),"\n",
#' #      "classDef column fill:#0001CC, stroke:#0D3FF3, stroke-width:1px;" ,"\n",
#' #      "class ", paste0(1:length(connections), collapse = ","), " column;"
#' #    )
#' #  )
#'
#' # Also with `DiagrammeR()`, you can use tags
#' # from `htmltools` (just make sure to use
#' # `class = "mermaid"`)
#' library(htmltools)
#' diagramSpec = "
#' graph LR;
#'   id1(Start)-->id2(Stop);
#'   style id1 fill:#f9f,stroke:#333,stroke-width:4px;
#'   style id2 fill:#ccf,stroke:#f66,stroke-width:2px,stroke-dasharray: 5, 5;
#' "
#' html_print(tagList(
#'   tags$h1("R + mermaid.js = Something Special")
#'   ,tags$pre(diagramSpec)
#'   ,tags$div(class="mermaid",diagramSpec)
#'   ,DiagrammeR()
#' ))
#' # diagramSpec = "
#' # graph LR;
#' #   id1(Start)-->id2(Stop);
#' #   style id1 fill:#f9f,stroke:#333,stroke-width:4px;
#' #   style id2 fill:#ccf,stroke:#f66,stroke-width:2px,stroke-dasharray: 5, 5;
#' # "
#' # html_print(tagList(
#' #   tags$h1("R + mermaid.js = Something Special")
#' #   ,tags$pre(diagramSpec)
#' #   ,tags$div(class="mermaid", diagramSpec)
#' #   ,DiagrammeR()
#' # ))
#'
#' # Create a sequence diagram
#' DiagrammeR("
#' sequenceDiagram;
#'    customer->>ticket seller: ask for a ticket;
#'    ticket seller->>database: seats;
#'    alt tickets available
#'      database->>ticket seller: ok;
#'      ticket seller->>customer: confirm;
#'      customer->>ticket seller: ok;
#'      ticket seller->>database: book a seat;
#'      ticket seller->>printer: print a ticket;
#'    else sold out
#'      database->>ticket seller: none left;
#'      ticket seller->>customer: sorry;
#'    end
#' ")
#' # DiagrammeR("
#' # sequenceDiagram;
#' #    customer->>ticket seller: ask for a ticket;
#' #    ticket seller->>database: seats;
#' #    alt tickets available
#' #      database->>ticket seller: ok;
#' #      ticket seller->>customer: confirm;
#' #      customer->>ticket seller: ok;
#' #      ticket seller->>database: book a seat;
#' #      ticket seller->>printer: print a ticket;
#' #    else sold out
#' #      database->>ticket seller: none left;
#' #      ticket seller->>customer: sorry;
#' #    end
#' # ")
#' }
#'
#' @import htmlwidgets

@@ -157,5 +158,6 @@

    x = x,
    width = width,
    height = height,
    package = "DiagrammeR")
    package = "DiagrammeR"
  )
}

@@ -19,15 +19,17 @@

#'
#' # Save the graph to disk; use
#' # the file name `gnp_graph.dgr`
#' save_graph(
#'   x = gnp_graph,
#'   file = "gnp_graph")
#' # save_graph(
#' #   x = gnp_graph,
#' #   file = "gnp_graph"
#' # )
#'
#' # To read the graph file from
#' # disk, use `open_graph()`
#' gnp_graph_2 <-
#'   open_graph(
#'     file = "gnp_graph.dgr")
#' # gnp_graph_2 <-
#' #   open_graph(
#' #     file = "gnp_graph.dgr"
#' # )
#'
#' @export
save_graph <- function(x,

@@ -4,7 +4,7 @@

#'
#' @inheritParams render_graph
#' @examples
#' \dontrun{
#'
#' # Create a node data frame (ndf)
#' ndf <-
#'   create_node_df(

@@ -14,7 +14,8 @@

14	14		#' "pink", "aqua", "yellow"),
15	15		#' shape = "dot",
16	16		#' size = c(20, 80, 40, 10, 30, 50),
17		-	#' type = c("1", "1", "1", "2", "2", "2"))
	17	+	#' type = c("1", "1", "1", "2", "2", "2")
	18	+	#' )
18	19		#'
19	20		#' # Create an edge data frame (edf)
20	21		#' edf <-

@@ -23,16 +24,17 @@

#'     to = c(4, 3, 1, 3, 1, 4),
#'     color = c("green", "green", "grey",
#'               "grey", "blue", "blue"),
#'     rel = "leading_to")
#'     rel = "leading_to"
#'   )
#'
#' # Create a graph object
#' graph <-
#'   create_graph(
#'     nodes_df = ndf,
#'     edges_df = edf)
#'     edges_df = edf
#'   )
#'
#' visnetwork(graph)
#' }
#' # visnetwork(graph)
#'
#' @import visNetwork
#' @export

@@ -16,7 +16,7 @@

#' @param height An optional parameter for specifying the height of the
#'   resulting graphic in pixels.
#' @examples
#' \dontrun{
#' \donttest{
#' # Render a graph that's a
#' # balanced tree
#' create_graph() %>%

@@ -36,7 +36,8 @@

#' graph <-
#'   create_graph() %>%
#'   add_full_graph(
#'     n = 3, keep_loops = TRUE)
#'     n = 3, keep_loops = TRUE
#'   )
#'
#' # Get node information
#' # from this graph

@@ -58,7 +59,8 @@

#'     n = 3,
#'     type = "connected",
#'     label = c("1st", "2nd", "3rd"),
#'     rel = "connected_to")
#'     rel = "connected_to"
#'   )
#'
#' # Show the graph's node
#' # data frame (ndf)

@@ -82,9 +84,10 @@

#'   sample(9, FALSE) %>%
#'   round(2) %>%
#'   matrix(
#'     nc = 3,
#'     nr = 3,
#'     dimnames = list(c("a", "b", "c")))
#'     ncol = 3,
#'     nrow = 3,
#'     dimnames = list(c("a", "b", "c"))
#'   )
#'
#' # Create the fully-connected
#' # graph (without loops however)

@@ -118,7 +121,8 @@

#'     label = TRUE,
#'     rel = "related_to",
#'     edge_wt_matrix = edge_wt_matrix,
#'     keep_loops = FALSE) %>%
#'     keep_loops = FALSE
#'   ) %>%
#'   get_edge_df()
#'
#' @export

Click to load this diff.

Loading diff...

Click to load this diff.

Loading diff...

Click to load this diff.

Loading diff...

Everything is accounted for!

No changes detected that need to be reviewed.

What changes does Codecov check for?

Lines, not adjusted in diff, that have changed coverage data.

Files that introduced coverage data that had none before.

Files that have missing coverage data that once were tracked.

81.55% 23.08% ø

Make changes for CRAN resubmission

rich-iannone

5644261

CI Passed

Hiding 1 contexual commits

81.55% 100.00% ø

Merge pull request #370 from nograpes/master

rich-iannone

f53b20c

CI Passed

Files		•	•	•	Coverage
R	ø	ø	ø	ø	81.55%
Project Totals (244 files)	14,171	11,556	0	2,615	81.55%

Navigation	Overlay
`t` Navigate files	`h` Toggle hits
`y` Change url to tip of branch	`m` Toggle misses
`b / v` Jump to prev/next hit line	`p` Toggle partial
`z / x` Jump to prev/next missed or partial line	`1..9` Toggle flags
`shift + o` Open current page in GitHub	`a` Toggle all on
`/ or ?` Show keyboard shortcuts dialog	`c` Toggle context lines or commits

Compare `f53b20c ... +1 ... 5644261`

No flags found

Everything is accounted for!

What changes does Codecov check for?

Show failed CI and contexual commits `c`

3 Commits

19	19		#' Markdown documents, and within Shiny output bindings.
20	20		#'
21	21		#' @examples
22		-	#' \dontrun{
	22	+	#' \donttest{
23	23		#' # Create a simple graph running left to right (note
24	24		#' # that the whitespace is not important)
25		-	#' DiagrammeR("
26		-	#' graph LR
27		-	#' A-->B
28		-	#' A-->C
29		-	#' C-->E
30		-	#' B-->D
31		-	#' C-->D
32		-	#' D-->F
33		-	#' E-->F
34		-	#' ")
	25	+	#' # DiagrammeR("
	26	+	#' # graph LR
	27	+	#' # A-->B
	28	+	#' # A-->C
	29	+	#' # C-->E
	30	+	#' # B-->D
	31	+	#' # C-->D
	32	+	#' # D-->F
	33	+	#' # E-->F
	34	+	#' # ")
	35	+	#'
35	36		#' # Create the equivalent graph but have it running
36	37		#' # from top to bottom
37		-	#' DiagrammeR("
38		-	#' graph TB
39		-	#' A-->B
40		-	#' A-->C
41		-	#' C-->E
42		-	#' B-->D
43		-	#' C-->D
44		-	#' D-->F
45		-	#' E-->F
46		-	#' ")
	38	+	#' # DiagrammeR("
	39	+	#' # graph TB
	40	+	#' # A-->B
	41	+	#' # A-->C
	42	+	#' # C-->E
	43	+	#' # B-->D
	44	+	#' # C-->D
	45	+	#' # D-->F
	46	+	#' # E-->F
	47	+	#' # ")
47	48		#'
48	49		#' # Create a graph with different node shapes and
49	50		#' # provide fill styles for each node
50		-	#' DiagrammeR("graph LR;A(Rounded)-->B[Squared];B-->C{A Decision};
51		-	#' C-->D[Square One];C-->E[Square Two];
52		-	#' style A fill:#E5E25F; style B fill:#87AB51; style C fill:#3C8937;
53		-	#' style D fill:#23772C; style E fill:#B6E6E6;"
54		-	#' )
	51	+	#' # DiagrammeR("graph LR;A(Rounded)-->B[Squared];B-->C{A Decision};
	52	+	#' # C-->D[Square One];C-->E[Square Two];
	53	+	#' # style A fill:#E5E25F; style B fill:#87AB51; style C fill:#3C8937;
	54	+	#' # style D fill:#23772C; style E fill:#B6E6E6;"
	55	+	#' # )
55	56		#'
56	57		#' # Load in the 'mtcars' dataset
57		-	#' data(mtcars)
58		-	#' connections <- sapply(
59		-	#' 1:ncol(mtcars)
60		-	#' ,function(i) {
61		-	#' paste0(
62		-	#' i
63		-	#' ,"(",colnames(mtcars)[i],")---"
64		-	#' ,i,"-stats("
65		-	#' ,paste0(
66		-	#' names(summary(mtcars[,i]))
67		-	#' ,": "
68		-	#' ,unname(summary(mtcars[,i]))
69		-	#' ,collapse="<br/>"
70		-	#' )
71		-	#' ,")"
72		-	#' )
73		-	#' }
74		-	#' )
	58	+	#' # data(mtcars)
	59	+	#' # connections <- sapply(
	60	+	#' # 1:ncol(mtcars)
	61	+	#' # ,function(i) {
	62	+	#' # paste0(
	63	+	#' # i
	64	+	#' # ,"(",colnames(mtcars)[i],")---"
	65	+	#' # ,i,"-stats("
	66	+	#' # ,paste0(
	67	+	#' # names(summary(mtcars[,i]))
	68	+	#' # ,": "
	69	+	#' # ,unname(summary(mtcars[,i]))
	70	+	#' # ,collapse="<br/>"
	71	+	#' # )
	72	+	#' # ,")"
	73	+	#' # )
	74	+	#' # }
	75	+	#' # )
75	76		#'
76	77		#' # Create a diagram using the 'connections' object
77		-	#' DiagrammeR(
78		-	#' paste0(
79		-	#' "graph TD;", "\n",
80		-	#' paste(connections, collapse = "\n"),"\n",
81		-	#' "classDef column fill:#0001CC, stroke:#0D3FF3, stroke-width:1px;" ,"\n",
82		-	#' "class ", paste0(1:length(connections), collapse = ","), " column;"
83		-	#' )
84		-	#' )
	78	+	#' # DiagrammeR(
	79	+	#' # paste0(
	80	+	#' # "graph TD;", "\n",
	81	+	#' # paste(connections, collapse = "\n"),"\n",
	82	+	#' # "classDef column fill:#0001CC, stroke:#0D3FF3, stroke-width:1px;" ,"\n",
	83	+	#' # "class ", paste0(1:length(connections), collapse = ","), " column;"
	84	+	#' # )
	85	+	#' # )
85	86		#'
86	87		#' # Also with `DiagrammeR()`, you can use tags
87	88		#' # from `htmltools` (just make sure to use
88	89		#' # `class = "mermaid"`)
89	90		#' library(htmltools)
90		-	#' diagramSpec = "
91		-	#' graph LR;
92		-	#' id1(Start)-->id2(Stop);
93		-	#' style id1 fill:#f9f,stroke:#333,stroke-width:4px;
94		-	#' style id2 fill:#ccf,stroke:#f66,stroke-width:2px,stroke-dasharray: 5, 5;
95		-	#' "
96		-	#' html_print(tagList(
97		-	#' tags$h1("R + mermaid.js = Something Special")
98		-	#' ,tags$pre(diagramSpec)
99		-	#' ,tags$div(class="mermaid",diagramSpec)
100		-	#' ,DiagrammeR()
101		-	#' ))
	91	+	#' # diagramSpec = "
	92	+	#' # graph LR;
	93	+	#' # id1(Start)-->id2(Stop);
	94	+	#' # style id1 fill:#f9f,stroke:#333,stroke-width:4px;
	95	+	#' # style id2 fill:#ccf,stroke:#f66,stroke-width:2px,stroke-dasharray: 5, 5;
	96	+	#' # "
	97	+	#' # html_print(tagList(
	98	+	#' # tags$h1("R + mermaid.js = Something Special")
	99	+	#' # ,tags$pre(diagramSpec)
	100	+	#' # ,tags$div(class="mermaid", diagramSpec)
	101	+	#' # ,DiagrammeR()
	102	+	#' # ))
102	103		#'
103	104		#' # Create a sequence diagram
104		-	#' DiagrammeR("
105		-	#' sequenceDiagram;
106		-	#' customer->>ticket seller: ask for a ticket;
107		-	#' ticket seller->>database: seats;
108		-	#' alt tickets available
109		-	#' database->>ticket seller: ok;
110		-	#' ticket seller->>customer: confirm;
111		-	#' customer->>ticket seller: ok;
112		-	#' ticket seller->>database: book a seat;
113		-	#' ticket seller->>printer: print a ticket;
114		-	#' else sold out
115		-	#' database->>ticket seller: none left;
116		-	#' ticket seller->>customer: sorry;
117		-	#' end
118		-	#' ")
	105	+	#' # DiagrammeR("
	106	+	#' # sequenceDiagram;
	107	+	#' # customer->>ticket seller: ask for a ticket;
	108	+	#' # ticket seller->>database: seats;
	109	+	#' # alt tickets available
	110	+	#' # database->>ticket seller: ok;
	111	+	#' # ticket seller->>customer: confirm;
	112	+	#' # customer->>ticket seller: ok;
	113	+	#' # ticket seller->>database: book a seat;
	114	+	#' # ticket seller->>printer: print a ticket;
	115	+	#' # else sold out
	116	+	#' # database->>ticket seller: none left;
	117	+	#' # ticket seller->>customer: sorry;
	118	+	#' # end
	119	+	#' # ")
119	120		#' }
120	121		#'
121	122		#' @import htmlwidgets

157	158		x = x,
158	159		width = width,
159	160		height = height,
160		-	package = "DiagrammeR")
	161	+	package = "DiagrammeR"
	162	+	)
161	163		}

19	19		#'
20	20		#' # Save the graph to disk; use
21	21		#' # the file name `gnp_graph.dgr`
22		-	#' save_graph(
23		-	#' x = gnp_graph,
24		-	#' file = "gnp_graph")
	22	+	#' # save_graph(
	23	+	#' # x = gnp_graph,
	24	+	#' # file = "gnp_graph"
	25	+	#' # )
25	26		#'
26	27		#' # To read the graph file from
27	28		#' # disk, use `open_graph()`
28		-	#' gnp_graph_2 <-
29		-	#' open_graph(
30		-	#' file = "gnp_graph.dgr")
	29	+	#' # gnp_graph_2 <-
	30	+	#' # open_graph(
	31	+	#' # file = "gnp_graph.dgr"
	32	+	#' # )
31	33		#'
32	34		#' @export
33	35		save_graph <- function(x,

4	4		#'
5	5		#' @inheritParams render_graph
6	6		#' @examples
7		-	#' \dontrun{
	7	+	#'
8	8		#' # Create a node data frame (ndf)
9	9		#' ndf <-
10	10		#' create_node_df(

23	24		#' to = c(4, 3, 1, 3, 1, 4),
24	25		#' color = c("green", "green", "grey",
25	26		#' "grey", "blue", "blue"),
26		-	#' rel = "leading_to")
	27	+	#' rel = "leading_to"
	28	+	#' )
27	29		#'
28	30		#' # Create a graph object
29	31		#' graph <-
30	32		#' create_graph(
31	33		#' nodes_df = ndf,
32		-	#' edges_df = edf)
	34	+	#' edges_df = edf
	35	+	#' )
33	36		#'
34		-	#' visnetwork(graph)
35		-	#' }
	37	+	#' # visnetwork(graph)
36	38		#'
37	39		#' @import visNetwork
38	40		#' @export

16	16		#' @param height An optional parameter for specifying the height of the
17	17		#' resulting graphic in pixels.
18	18		#' @examples
19		-	#' \dontrun{
	19	+	#' \donttest{
20	20		#' # Render a graph that's a
21	21		#' # balanced tree
22	22		#' create_graph() %>%

36	36		#' graph <-
37	37		#' create_graph() %>%
38	38		#' add_full_graph(
39		-	#' n = 3, keep_loops = TRUE)
	39	+	#' n = 3, keep_loops = TRUE
	40	+	#' )
40	41		#'
41	42		#' # Get node information
42	43		#' # from this graph

58	59		#' n = 3,
59	60		#' type = "connected",
60	61		#' label = c("1st", "2nd", "3rd"),
61		-	#' rel = "connected_to")
	62	+	#' rel = "connected_to"
	63	+	#' )
62	64		#'
63	65		#' # Show the graph's node
64	66		#' # data frame (ndf)

82	84		#' sample(9, FALSE) %>%
83	85		#' round(2) %>%
84	86		#' matrix(
85		-	#' nc = 3,
86		-	#' nr = 3,
87		-	#' dimnames = list(c("a", "b", "c")))
	87	+	#' ncol = 3,
	88	+	#' nrow = 3,
	89	+	#' dimnames = list(c("a", "b", "c"))
	90	+	#' )
88	91		#'
89	92		#' # Create the fully-connected
90	93		#' # graph (without loops however)

118	121		#' label = TRUE,
119	122		#' rel = "related_to",
120	123		#' edge_wt_matrix = edge_wt_matrix,
121		-	#' keep_loops = FALSE) %>%
	124	+	#' keep_loops = FALSE
	125	+	#' ) %>%
122	126		#' get_edge_df()
123	127		#'
124	128		#' @export

Compare f53b20c ... +1 ... 5644261

No flags found

Everything is accounted for!

What changes does Codecov check for?

Show failed CI and contexual commits c 3 Commits

Compare `f53b20c ... +1 ... 5644261`

Show failed CI and contexual commits `c`

3 Commits