inst/benchmarks/time_print.R

In igraph/rigraph: Network Analysis and Visualization

time_group("Printing graphs to the screen")

time_that("Print large graphs without attributes", replications = 10,
          init = { library(igraph); set.seed(42) },
          reinit = { g <- make_lattice(c(1000, 1000)) },
          { print(g) })

time_that("Summarize large graphs without attributes", replications = 10,
          init = { library(igraph); set.seed(42) },
          reinit = { g <- make_lattice(c(1000, 1000)) },
          { summary(g) })

time_that("Print large graphs with large graph attributes",
          replications = 10,
          init = { library(igraph); set.seed(42) },
          reinit = { g <- make_lattice(c(1000, 1000));
                     g <- set_graph_attr(g, "foo", 1:1000000) },
          { print(g) })

time_that("Summarize large graphs with large graph attributes",
          replications = 10,
          init = { library(igraph); set.seed(42) },
          reinit = { g <- make_lattice(c(1000, 1000));
                     g <- set_graph_attr(g, "foo", 1:1000000) },
          { summary(g) })

time_that("Print large graphs with vertex attributes", replications = 10,
          init = { library(igraph); set.seed(42) },
          reinit = { g <- make_lattice(c(1000, 1000));
                     g <- set_vertex_attr(g, 'foo',
                             value = as.character(seq_len(gorder(g)))) },
          { print(g) })

time_that("Summarize large graphs with vertex attributes", replications = 10,
          init = { library(igraph); set.seed(42) },
          reinit = { g <- make_lattice(c(1000, 1000));
                     g <- set_vertex_attr(g, 'foo',
                             value = as.character(seq_len(gorder(g)))) },
          { print(g) })

time_that("Print large graphs with edge attributes", replications = 10,
          init = { library(igraph); set.seed(42) },
          reinit = { g <- make_lattice(c(1000, 1000));
                     g <- set_edge_attr(g, 'foo',
                             value = as.character(seq_len(gsize(g)))) },
          { print(g) })

time_that("Summarize large graphs with edge attributes", replications = 10,
          init = { library(igraph); set.seed(42) },
          reinit = { g <- make_lattice(c(1000, 1000));
                     g <- set_edge_attr(g, 'foo',
                             value = as.character(seq_len(gsize(g)))) },
          { print(g) })