if (interactive()) {
  # Render a graph that's a
  # balanced tree
  create_graph() %>%
    add_balanced_tree(
      k = 2, h = 3
    ) %>%
    render_graph()
  # Use the `tree` layout for
  # better node placement in this
  # hierarchical graph
  create_graph() %>%
    add_balanced_tree(
      k = 2, h = 3
    ) %>%
    render_graph(layout = "tree")
  # Plot the same tree graph but
  # don't show the node ID values
  create_graph() %>%
    add_balanced_tree(
      k = 2, h = 3
    ) %>%
    set_node_attr_to_display() %>%
    render_graph(layout = "tree")
  # Create a circle graph
  create_graph() %>%
    add_gnm_graph(
      n = 55,
      m = 75,
      set_seed = 23
    ) %>%
    render_graph(
      layout = "circle"
    )
  # Render the graph using the
  # `visNetwork` output option
  create_graph() %>%
    add_balanced_tree(
      k = 2, h = 3
    ) %>%
    render_graph(
      output = "visNetwork"
    )
}
Run the code above in your browser using DataLab