#' #     file_name = "mypng.png",

#' #     file_type = "PNG"

#' #   )

#' @export

export_graph <- function(graph,

                         file_name = NULL,

#' }

#'

#' @import glue glue

#' @export

render_graph <- function(graph,

                         layout = NULL,

#' graph %>% get_edge_df()

#'

#' @import rlang

#' @export

mutate_edge_attrs_ws <- function(graph,

                                 ...) {

#' graph %>% get_node_df()

#'

#' @import rlang

#' @export

set_node_attrs <- function(graph,

                           node_attr,

#' # Get the graph's internal edf to show that the

#' # join has been made

#' graph %>% get_edge_df()

#' @export

join_edge_attrs <- function(graph,

                            df,

#' # Inspect the graph's edges

#' # after their reversal

#' graph %>% get_edges()

#' @export

rev_edge_dir_ws <- function(graph) {

#'

#' # Get a count of edges in the graph

#' graph %>% count_edges()

#' @export

delete_edges_ws <- function(graph) {

#' # edge data frame (it's the

#' # same as before)

#' graph_node_label %>% get_edge_df()

#' @export

add_edges_w_string <- function(graph,

                               edges,

#' graph %>% get_node_df()

#'

#' @import rlang

#' @export

rescale_node_attrs <- function(graph,

                               node_attr_from,

#' graph %>% get_node_df()

#'

#' @import rlang

#' @export

copy_node_attrs <- function(graph,

                            node_attr_from,

#' graph %>% get_node_df()

#'

#' @import rlang

#' @export

recode_node_attrs <- function(graph,

                              node_attr_from,

#' # Get the graph's edge data frame

#' graph %>% get_edge_df()

#'

#' @export

add_forward_edges_ws <- function(graph,

                                 rel = NULL) {

#' # Display the graph's internal

#' # edge data frame

#' graph_3 %>% get_edge_df()

#' @export

add_edge_clone <- function(graph,

                           edge,

#' graph %>% get_edge_df()

#'

#' @import rlang

#' @export

set_edge_attrs_ws <- function(graph,

                              edge_attr,

#'   set_df_as_edge_attr(

#'     edge = 1,

#'     df = df)

#' @export

set_df_as_edge_attr <- function(graph,

                                edge,

#' graph %>% get_node_df()

#'

#' @import rlang

#' @export

mutate_node_attrs <- function(graph,

                              ...) {

#' graph %>% get_node_df()

#'

#' @import rlang

#' @export

rename_node_attrs <- function(graph,

                              node_attr_from,

#'

#' # Get the graph's node IDs

#' graph %>% get_node_ids()

#' @export

add_n_nodes <- function(graph,

                        n,

#'     to = 1)

#'

#' @import rlang

#' @export

set_edge_attrs <- function(graph,

                           edge_attr,

#' graph %>% get_node_df()

#'

#' @import rlang

#' @export

set_node_attrs_ws <- function(graph,

                              node_attr,

#' # data attributes have been

#' # inserted

#' graph %>% get_node_df()

#' @export

node_data <- function(...) {

#' # View the graph's internal

#' # node data frame (ndf)

#' graph %>% get_node_df()

#' @export

add_node <- function(graph,

                     type = NULL,

#'   get_node_df()

#'

#' @import rlang

#' @export

set_node_attr_to_display <- function(graph,

                                     attr = NULL,

#'   graph_series = series,

#'   graph_no = 2)

#' }

#' @export

render_graph_from_graph_series <- function(graph_series,

                                           graph_no,

#' # since there were edges between the

#' # removed node to and from other nodes

#' graph %>% get_edges()

#' @export

delete_node <- function(graph,

                        node) {

#' graph %>% get_edge_df()

#'

#' @import rlang

#' @export

rename_edge_attrs <- function(graph,

                              edge_attr_from,

#'

#' # Display the node data frame

#' node_df

#' @export

create_node_df <- function(n,

                           type = NULL,

#' # node data frame: nodes `4`,

#' # `5`, and `6` are clones of `1`

#' graph %>% get_node_df()

#' @export

add_n_node_clones <- function(graph,

                              n,

#' # been inserted

#' graph %>% get_edge_df()

#' }

#' @export

edge_data <- function(...) {

#'   set_df_as_node_attr(

#'     node = 2,

#'     df = df_2)

#' @export

set_df_as_node_attr <- function(graph,

                                node,

#' # Get the graph's internal ndf to show that

#' # this join has been made

#' graph %>% get_node_df()

#' @export

join_node_attrs <- function(graph,

                            df,

#'   get_edge_df()

#'

#' @import rlang

#' @export

set_edge_attr_to_display <- function(graph,

                                     attr = NULL,

#'     ),

#'     edge_aes = edge_aes(color = "blue")

#'   )

#' @export

node_aes <- function(shape = NULL,

                     style = NULL,

#'

#' @import RColorBrewer

#' @import rlang

#' @export

colorize_node_attrs <- function(graph,

                                node_attr_from,

#' graph %>% get_node_df()

#'

#' @import rlang

#' @export

mutate_node_attrs_ws <- function(graph,

                                 ...) {

#'

#' # Get the graph's edges

#' graph %>% get_edges()

#' @export

add_n_nodes_ws <- function(graph,

                           n,

#' graph %>% get_edge_df()

#'

#' @import rlang

#' @export

recode_edge_attrs <- function(graph,

                              edge_attr_from,

#'   get_edge_df() %>%

#'   head()

#' @import rlang

#' @export

add_edges_from_table <- function(graph,

                                 table,

#' # Inspect the graph's edges

#' # after their reversal

#' graph %>% get_edges()

#' @export

rev_edge_dir <- function(graph) {

#' graph %>% get_edge_df()

#'

#' @import rlang

#' @export

rescale_edge_attrs <- function(graph,

                               edge_attr_from,

#' # to confirm that `x` and `y` values

#' # were added to each of the nodes

#' graph %>% get_node_df()

#' @export

layout_nodes_w_string <- function(graph,

                                  layout,

#' # node data frame using the

#' # `get_node_df()` function

#' graph %>% get_node_df()

#' @export

add_node_df <- function(graph,

                        node_df) {

#' # Display the edge data frame

#' edf

#'

#' @export

create_edge_df <- function(from,

                           to,

#' # edges between the selected

#' # nodes and their clones

#' graph %>% get_edge_df()

#' @export

add_node_clones_ws <- function(graph,

                               add_edges = FALSE,

#' graph %>%

#'   get_edges(

#'     return_type = "vector")

#' @export

add_edge_df <- function(graph,

                        edge_df) {

#' # Inspect the graph's internal

#' # node data frame

#' graph_3 %>% get_node_df()

#' @export

set_node_attr_w_fcn <- function(graph,

                                node_attr_fcn,

#' graph %>% get_edge_df()

#'

#' @import rlang

#' @export

copy_edge_attrs <- function(graph,

                            edge_attr_from,

#' #   open_graph(

#' #     file = "gnp_graph.dgr"

#' # )

#' @export

save_graph <- function(x,

                       file) {

#' # Count the number of loop

#' # edges remaining in the graph

#' graph %>% count_loop_edges()

#' @export

delete_loop_edges_ws <- function(graph) {

#' # Get the graph's edge data frame

#' graph %>% get_edge_df()

#'

#' @export

add_reverse_edges_ws <- function(graph,

                                 rel = NULL,

#'     to = "two") %>%

#'   count_edges()

#'

#' @export

delete_edge <- function(graph,

                        from = NULL,

#' graph %>% get_edge_df()

#'

#' @import rlang

#' @export

drop_edge_attrs <- function(graph,

                            edge_attr) {

#'

#' # View the graph's node data frame

#' graph %>% get_node_df()

#' @export

set_node_position <- function(graph,

                              node,

#'   colnames()

#'

#' @import rlang

#' @export

add_nodes_from_table <- function(graph,

                                 table,

#' # get made with columns that

#' # are not character class columns

#' graph %>% get_node_df()

#' @export

add_nodes_from_df_cols <- function(graph,

                                   df,

#'

#' # Get a count of nodes in the graph

#' graph %>% count_nodes()

#' @export

delete_nodes_ws <- function(graph) {

#' # been inserted

#' graph %>%

#'   get_edge_df()

#' @export

edge_aes <- function(style = NULL,

                     penwidth = NULL,

#' # newly created edge

#' graph_2 %>% get_edge_df()

#' @import rlang

#' @export

add_edge <- function(graph,

                     from,

#' graph %>% get_node_df()

#'

#' @import rlang

#' @export

drop_node_attrs <- function(graph,

                            node_attr) {

#' graph %>% get_edge_df()

#'

#' @import rlang

#' @export

mutate_edge_attrs <- function(graph,

                              ...) {