rich-iannone / DiagrammeR
Showing 60 of 122 files from the diff.
Newly tracked file
R/export_graph.R changed.
Newly tracked file
R/render_graph.R changed.
Newly tracked file
R/mutate_edge_attrs_ws.R changed.
Newly tracked file
R/set_node_attrs.R changed.
Newly tracked file
R/join_edge_attrs.R changed.
Newly tracked file
R/rev_edge_dir_ws.R changed.
Newly tracked file
R/delete_edges_ws.R changed.
Newly tracked file
R/add_edges_w_string.R changed.
Newly tracked file
R/rescale_node_attrs.R changed.
Newly tracked file
R/copy_node_attrs.R changed.
Newly tracked file
R/recode_node_attrs.R changed.
Newly tracked file
R/add_forward_edges_ws.R changed.
Newly tracked file
R/add_edge_clone.R changed.
Newly tracked file
R/set_edge_attrs_ws.R changed.
Newly tracked file
R/set_df_as_edge_attr.R changed.
Newly tracked file
R/mutate_node_attrs.R changed.
Newly tracked file
R/rename_node_attrs.R changed.
Newly tracked file
R/add_n_nodes.R changed.
Newly tracked file
R/set_edge_attrs.R changed.
Newly tracked file
R/set_node_attrs_ws.R changed.
Newly tracked file
R/node_data.R changed.
Newly tracked file
R/add_node.R changed.
Newly tracked file
R/delete_node.R changed.
Newly tracked file
R/rename_edge_attrs.R changed.
Newly tracked file
R/create_node_df.R changed.
Newly tracked file
R/add_n_node_clones.R changed.
Newly tracked file
R/edge_data.R changed.
Newly tracked file
R/set_df_as_node_attr.R changed.
Newly tracked file
R/join_node_attrs.R changed.
Newly tracked file
R/node_aes.R changed.
Newly tracked file
R/colorize_node_attrs.R changed.
Newly tracked file
R/mutate_node_attrs_ws.R changed.
Newly tracked file
R/add_n_nodes_ws.R changed.
Newly tracked file
R/recode_edge_attrs.R changed.
Newly tracked file
R/add_edges_from_table.R changed.
Newly tracked file
R/rev_edge_dir.R changed.
Newly tracked file
R/rescale_edge_attrs.R changed.
Newly tracked file
R/add_node_df.R changed.
Newly tracked file
R/create_edge_df.R changed.
Newly tracked file
R/add_node_clones_ws.R changed.
Newly tracked file
R/add_edge_df.R changed.
Newly tracked file
R/set_node_attr_w_fcn.R changed.
Newly tracked file
R/copy_edge_attrs.R changed.
Newly tracked file
R/save_graph.R changed.
Newly tracked file
R/delete_loop_edges_ws.R changed.
Newly tracked file
R/add_reverse_edges_ws.R changed.
Newly tracked file
R/delete_edge.R changed.
Newly tracked file
R/drop_edge_attrs.R changed.
Newly tracked file
R/set_node_position.R changed.
Newly tracked file
R/add_nodes_from_table.R changed.
Newly tracked file
R/delete_nodes_ws.R changed.
Newly tracked file
R/edge_aes.R changed.
Newly tracked file
R/add_edge.R changed.
Newly tracked file
R/drop_node_attrs.R changed.
Newly tracked file
R/mutate_edge_attrs.R changed.
Other files ignored by Codecov
man/edge_aes.Rd has changed.
man/save_graph.Rd has changed.
man/edge_data.Rd has changed.
man/add_edge.Rd has changed.
man/add_node.Rd has changed.
man/node_aes.Rd has changed.
man/node_data.Rd has changed.

@@ -46,7 +46,7 @@
Loading
46 46
#' #     file_name = "mypng.png",
47 47
#' #     file_type = "PNG"
48 48
#' #   )
49 -
#'
49 +
#' @family Display and Save
50 50
#' @export
51 51
export_graph <- function(graph,
52 52
                         file_name = NULL,

@@ -59,6 +59,7 @@
Loading
59 59
#' }
60 60
#'
61 61
#' @import glue glue
62 +
#' @family Display and Save
62 63
#' @export
63 64
render_graph <- function(graph,
64 65
                         layout = NULL,

@@ -114,6 +114,7 @@
Loading
114 114
#' graph %>% get_edge_df()
115 115
#'
116 116
#' @import rlang
117 +
#' @family Edge creation and removal
117 118
#' @export
118 119
mutate_edge_attrs_ws <- function(graph,
119 120
                                 ...) {

@@ -58,6 +58,7 @@
Loading
58 58
#' graph %>% get_node_df()
59 59
#'
60 60
#' @import rlang
61 +
#' @family Node creation and removal
61 62
#' @export
62 63
set_node_attrs <- function(graph,
63 64
                           node_attr,

@@ -50,7 +50,7 @@
Loading
50 50
#' # Get the graph's internal edf to show that the
51 51
#' # join has been made
52 52
#' graph %>% get_edge_df()
53 -
#'
53 +
#' @family Edge creation and removal
54 54
#' @export
55 55
join_edge_attrs <- function(graph,
56 56
                            df,

@@ -46,7 +46,7 @@
Loading
46 46
#' # Inspect the graph's edges
47 47
#' # after their reversal
48 48
#' graph %>% get_edges()
49 -
#'
49 +
#' @family Edge creation and removal
50 50
#' @export
51 51
rev_edge_dir_ws <- function(graph) {
52 52

@@ -40,7 +40,7 @@
Loading
40 40
#'
41 41
#' # Get a count of edges in the graph
42 42
#' graph %>% count_edges()
43 -
#'
43 +
#' @family Edge creation and removal
44 44
#' @export
45 45
delete_edges_ws <- function(graph) {
46 46

@@ -56,6 +56,7 @@
Loading
56 56
#' # edge data frame (it's the
57 57
#' # same as before)
58 58
#' graph_node_label %>% get_edge_df()
59 +
#' @family Edge creation and removal
59 60
#' @export
60 61
add_edges_w_string <- function(graph,
61 62
                               edges,

@@ -82,6 +82,7 @@
Loading
82 82
#' graph %>% get_node_df()
83 83
#'
84 84
#' @import rlang
85 +
#' @family Node creation and removal
85 86
#' @export
86 87
rescale_node_attrs <- function(graph,
87 88
                               node_attr_from,

@@ -51,6 +51,7 @@
Loading
51 51
#' graph %>% get_node_df()
52 52
#'
53 53
#' @import rlang
54 +
#' @family Node creation and removal
54 55
#' @export
55 56
copy_node_attrs <- function(graph,
56 57
                            node_attr_from,

@@ -74,6 +74,7 @@
Loading
74 74
#' graph %>% get_node_df()
75 75
#'
76 76
#' @import rlang
77 +
#' @family Node creation and removal
77 78
#' @export
78 79
recode_node_attrs <- function(graph,
79 80
                              node_attr_from,

@@ -53,6 +53,7 @@
Loading
53 53
#' # Get the graph's edge data frame
54 54
#' graph %>% get_edge_df()
55 55
#'
56 +
#' @family Edge creation and removal
56 57
#' @export
57 58
add_forward_edges_ws <- function(graph,
58 59
                                 rel = NULL) {

@@ -63,6 +63,7 @@
Loading
63 63
#' # Display the graph's internal
64 64
#' # edge data frame
65 65
#' graph_3 %>% get_edge_df()
66 +
#' @family Edge creation and removal
66 67
#' @export
67 68
add_edge_clone <- function(graph,
68 69
                           edge,

@@ -46,6 +46,7 @@
Loading
46 46
#' graph %>% get_edge_df()
47 47
#'
48 48
#' @import rlang
49 +
#' @family Edge creation and removal
49 50
#' @export
50 51
set_edge_attrs_ws <- function(graph,
51 52
                              edge_attr,

@@ -50,7 +50,7 @@
Loading
50 50
#'   set_df_as_edge_attr(
51 51
#'     edge = 1,
52 52
#'     df = df)
53 -
#'
53 +
#' @family Edge creation and removal
54 54
#' @export
55 55
set_df_as_edge_attr <- function(graph,
56 56
                                edge,

@@ -72,6 +72,7 @@
Loading
72 72
#' graph %>% get_node_df()
73 73
#'
74 74
#' @import rlang
75 +
#' @family Node creation and removal
75 76
#' @export
76 77
mutate_node_attrs <- function(graph,
77 78
                              ...) {

@@ -48,6 +48,7 @@
Loading
48 48
#' graph %>% get_node_df()
49 49
#'
50 50
#' @import rlang
51 +
#' @family Node creation and removal
51 52
#' @export
52 53
rename_node_attrs <- function(graph,
53 54
                              node_attr_from,

@@ -24,7 +24,7 @@
Loading
24 24
#'
25 25
#' # Get the graph's node IDs
26 26
#' graph %>% get_node_ids()
27 -
#'
27 +
#' @family Node creation and removal
28 28
#' @export
29 29
add_n_nodes <- function(graph,
30 30
                        n,

@@ -74,6 +74,7 @@
Loading
74 74
#'     to = 1)
75 75
#'
76 76
#' @import rlang
77 +
#' @family Edge creation and removal
77 78
#' @export
78 79
set_edge_attrs <- function(graph,
79 80
                           edge_attr,

@@ -47,6 +47,7 @@
Loading
47 47
#' graph %>% get_node_df()
48 48
#'
49 49
#' @import rlang
50 +
#' @family Node creation and removal
50 51
#' @export
51 52
set_node_attrs_ws <- function(graph,
52 53
                              node_attr,

@@ -23,7 +23,7 @@
Loading
23 23
#' # data attributes have been
24 24
#' # inserted
25 25
#' graph %>% get_node_df()
26 -
#'
26 +
#' @family Node creation and removal
27 27
#' @export
28 28
node_data <- function(...) {
29 29

@@ -44,7 +44,7 @@
Loading
44 44
#' # View the graph's internal
45 45
#' # node data frame (ndf)
46 46
#' graph %>% get_node_df()
47 -
#'
47 +
#' @family Node creation and removal
48 48
#' @export
49 49
add_node <- function(graph,
50 50
                     type = NULL,

@@ -68,6 +68,7 @@
Loading
68 68
#'   get_node_df()
69 69
#'
70 70
#' @import rlang
71 +
#' @family Node creation and removal
71 72
#' @export
72 73
set_node_attr_to_display <- function(graph,
73 74
                                     attr = NULL,

@@ -44,6 +44,7 @@
Loading
44 44
#'   graph_series = series,
45 45
#'   graph_no = 2)
46 46
#' }
47 +
#' @family Display and Save
47 48
#' @export
48 49
render_graph_from_graph_series <- function(graph_series,
49 50
                                           graph_no,

@@ -26,7 +26,7 @@
Loading
26 26
#' # since there were edges between the
27 27
#' # removed node to and from other nodes
28 28
#' graph %>% get_edges()
29 -
#'
29 +
#' @family Node creation and removal
30 30
#' @export
31 31
delete_node <- function(graph,
32 32
                        node) {

@@ -42,6 +42,7 @@
Loading
42 42
#' graph %>% get_edge_df()
43 43
#'
44 44
#' @import rlang
45 +
#' @family Edge creation and removal
45 46
#' @export
46 47
rename_edge_attrs <- function(graph,
47 48
                              edge_attr_from,

@@ -53,7 +53,7 @@
Loading
53 53
#'
54 54
#' # Display the node data frame
55 55
#' node_df
56 -
#'
56 +
#' @family Node creation and removal
57 57
#' @export
58 58
create_node_df <- function(n,
59 59
                           type = NULL,

@@ -44,7 +44,7 @@
Loading
44 44
#' # node data frame: nodes `4`,
45 45
#' # `5`, and `6` are clones of `1`
46 46
#' graph %>% get_node_df()
47 -
#'
47 +
#' @family Node creation and removal
48 48
#' @export
49 49
add_n_node_clones <- function(graph,
50 50
                              n,

@@ -25,7 +25,7 @@
Loading
25 25
#' # been inserted
26 26
#' graph %>% get_edge_df()
27 27
#' }
28 -
#'
28 +
#' @family Edge creation and removal
29 29
#' @export
30 30
edge_data <- function(...) {
31 31

@@ -65,7 +65,7 @@
Loading
65 65
#'   set_df_as_node_attr(
66 66
#'     node = 2,
67 67
#'     df = df_2)
68 -
#'
68 +
#' @family Node creation and removal
69 69
#' @export
70 70
set_df_as_node_attr <- function(graph,
71 71
                                node,

@@ -61,7 +61,7 @@
Loading
61 61
#' # Get the graph's internal ndf to show that
62 62
#' # this join has been made
63 63
#' graph %>% get_node_df()
64 -
#'
64 +
#' @family Node creation and removal
65 65
#' @export
66 66
join_node_attrs <- function(graph,
67 67
                            df,

@@ -68,6 +68,7 @@
Loading
68 68
#'   get_edge_df()
69 69
#'
70 70
#' @import rlang
71 +
#' @family Edge creation and removal
71 72
#' @export
72 73
set_edge_attr_to_display <- function(graph,
73 74
                                     attr = NULL,

@@ -114,7 +114,7 @@
Loading
114 114
#'     ),
115 115
#'     edge_aes = edge_aes(color = "blue")
116 116
#'   )
117 -
#'
117 +
#' @family Aesthetics
118 118
#' @export
119 119
node_aes <- function(shape = NULL,
120 120
                     style = NULL,

@@ -104,6 +104,7 @@
Loading
104 104
#'
105 105
#' @import RColorBrewer
106 106
#' @import rlang
107 +
#' @family Node creation and removal
107 108
#' @export
108 109
colorize_node_attrs <- function(graph,
109 110
                                node_attr_from,

@@ -116,6 +116,7 @@
Loading
116 116
#' graph %>% get_node_df()
117 117
#'
118 118
#' @import rlang
119 +
#' @family Node creation and removal
119 120
#' @export
120 121
mutate_node_attrs_ws <- function(graph,
121 122
                                 ...) {

@@ -72,7 +72,7 @@
Loading
72 72
#'
73 73
#' # Get the graph's edges
74 74
#' graph %>% get_edges()
75 -
#'
75 +
#' @family Node creation and removal
76 76
#' @export
77 77
add_n_nodes_ws <- function(graph,
78 78
                           n,

@@ -60,6 +60,7 @@
Loading
60 60
#' graph %>% get_edge_df()
61 61
#'
62 62
#' @import rlang
63 +
#' @family Edge creation and removal
63 64
#' @export
64 65
recode_edge_attrs <- function(graph,
65 66
                              edge_attr_from,

@@ -79,6 +79,7 @@
Loading
79 79
#'   get_edge_df() %>%
80 80
#'   head()
81 81
#' @import rlang
82 +
#' @family Edge creation and removal
82 83
#' @export
83 84
add_edges_from_table <- function(graph,
84 85
                                 table,

@@ -28,7 +28,7 @@
Loading
28 28
#' # Inspect the graph's edges
29 29
#' # after their reversal
30 30
#' graph %>% get_edges()
31 -
#'
31 +
#' @family Edge creation and removal
32 32
#' @export
33 33
rev_edge_dir <- function(graph) {
34 34

@@ -85,6 +85,7 @@
Loading
85 85
#' graph %>% get_edge_df()
86 86
#'
87 87
#' @import rlang
88 +
#' @family Edge creation and removal
88 89
#' @export
89 90
rescale_edge_attrs <- function(graph,
90 91
                               edge_attr_from,

@@ -76,7 +76,7 @@
Loading
76 76
#' # to confirm that `x` and `y` values
77 77
#' # were added to each of the nodes
78 78
#' graph %>% get_node_df()
79 -
#'
79 +
#' @family Node creation and removal
80 80
#' @export
81 81
layout_nodes_w_string <- function(graph,
82 82
                                  layout,

@@ -44,7 +44,7 @@
Loading
44 44
#' # node data frame using the
45 45
#' # `get_node_df()` function
46 46
#' graph %>% get_node_df()
47 -
#'
47 +
#' @family Node creation and removal
48 48
#' @export
49 49
add_node_df <- function(graph,
50 50
                        node_df) {

@@ -53,6 +53,7 @@
Loading
53 53
#' # Display the edge data frame
54 54
#' edf
55 55
#'
56 +
#' @family Edge creation and removal
56 57
#' @export
57 58
create_edge_df <- function(from,
58 59
                           to,

@@ -82,7 +82,7 @@
Loading
82 82
#' # edges between the selected
83 83
#' # nodes and their clones
84 84
#' graph %>% get_edge_df()
85 -
#'
85 +
#' @family Node creation and removal
86 86
#' @export
87 87
add_node_clones_ws <- function(graph,
88 88
                               add_edges = FALSE,

@@ -36,6 +36,7 @@
Loading
36 36
#' graph %>%
37 37
#'   get_edges(
38 38
#'     return_type = "vector")
39 +
#' @family Edge creation and removal
39 40
#' @export
40 41
add_edge_df <- function(graph,
41 42
                        edge_df) {

@@ -92,7 +92,7 @@
Loading
92 92
#' # Inspect the graph's internal
93 93
#' # node data frame
94 94
#' graph_3 %>% get_node_df()
95 -
#'
95 +
#' @family Node creation and removal
96 96
#' @export
97 97
set_node_attr_w_fcn <- function(graph,
98 98
                                node_attr_fcn,

@@ -45,6 +45,7 @@
Loading
45 45
#' graph %>% get_edge_df()
46 46
#'
47 47
#' @import rlang
48 +
#' @family Edge creation and removal
48 49
#' @export
49 50
copy_edge_attrs <- function(graph,
50 51
                            edge_attr_from,

@@ -30,7 +30,7 @@
Loading
30 30
#' #   open_graph(
31 31
#' #     file = "gnp_graph.dgr"
32 32
#' # )
33 -
#'
33 +
#' @family Display and Save
34 34
#' @export
35 35
save_graph <- function(x,
36 36
                       file) {

@@ -41,7 +41,7 @@
Loading
41 41
#' # Count the number of loop
42 42
#' # edges remaining in the graph
43 43
#' graph %>% count_loop_edges()
44 -
#'
44 +
#' @family Edge creation and removal
45 45
#' @export
46 46
delete_loop_edges_ws <- function(graph) {
47 47

@@ -57,6 +57,7 @@
Loading
57 57
#' # Get the graph's edge data frame
58 58
#' graph %>% get_edge_df()
59 59
#'
60 +
#' @family Edge creation and removal
60 61
#' @export
61 62
add_reverse_edges_ws <- function(graph,
62 63
                                 rel = NULL,

@@ -90,6 +90,7 @@
Loading
90 90
#'     to = "two") %>%
91 91
#'   count_edges()
92 92
#'
93 +
#' @family Edge creation and removal
93 94
#' @export
94 95
delete_edge <- function(graph,
95 96
                        from = NULL,

@@ -42,6 +42,7 @@
Loading
42 42
#' graph %>% get_edge_df()
43 43
#'
44 44
#' @import rlang
45 +
#' @family Edge creation and removal
45 46
#' @export
46 47
drop_edge_attrs <- function(graph,
47 48
                            edge_attr) {

@@ -87,7 +87,7 @@
Loading
87 87
#'
88 88
#' # View the graph's node data frame
89 89
#' graph %>% get_node_df()
90 -
#'
90 +
#' @family Node creation and removal
91 91
#' @export
92 92
set_node_position <- function(graph,
93 93
                              node,

@@ -84,6 +84,7 @@
Loading
84 84
#'   colnames()
85 85
#'
86 86
#' @import rlang
87 +
#' @family Node creation and removal
87 88
#' @export
88 89
add_nodes_from_table <- function(graph,
89 90
                                 table,

@@ -63,7 +63,7 @@
Loading
63 63
#' # get made with columns that
64 64
#' # are not character class columns
65 65
#' graph %>% get_node_df()
66 -
#'
66 +
#' @family Node creation and removal
67 67
#' @export
68 68
add_nodes_from_df_cols <- function(graph,
69 69
                                   df,

@@ -41,7 +41,7 @@
Loading
41 41
#'
42 42
#' # Get a count of nodes in the graph
43 43
#' graph %>% count_nodes()
44 -
#'
44 +
#' @family Node creation and removal
45 45
#' @export
46 46
delete_nodes_ws <- function(graph) {
47 47

@@ -117,7 +117,7 @@
Loading
117 117
#' # been inserted
118 118
#' graph %>%
119 119
#'   get_edge_df()
120 -
#'
120 +
#' @family Aesthetics
121 121
#' @export
122 122
edge_aes <- function(style = NULL,
123 123
                     penwidth = NULL,

@@ -100,6 +100,7 @@
Loading
100 100
#' # newly created edge
101 101
#' graph_2 %>% get_edge_df()
102 102
#' @import rlang
103 +
#' @family Edge creation and removal
103 104
#' @export
104 105
add_edge <- function(graph,
105 106
                     from,

@@ -41,6 +41,7 @@
Loading
41 41
#' graph %>% get_node_df()
42 42
#'
43 43
#' @import rlang
44 +
#' @family Node creation and removal
44 45
#' @export
45 46
drop_node_attrs <- function(graph,
46 47
                            node_attr) {

@@ -72,6 +72,7 @@
Loading
72 72
#' graph %>% get_edge_df()
73 73
#'
74 74
#' @import rlang
75 +
#' @family Edge creation and removal
75 76
#' @export
76 77
mutate_edge_attrs <- function(graph,
77 78
                              ...) {
Files Coverage
R 81.45%
Project Totals (244 files) 81.45%