tools/run_examples.R

In igraph/rigraph: Network Analysis and Visualization

#! /usr/bin/env Rscript

library(igraph)
library(magrittr)

rd_files <- list.files("./man", pattern = "\\.Rd$", full.names = TRUE)
exfile <- tempfile()

for (rd_file in rd_files) {
  tools::Rd2ex(rd_file, out = exfile, commentDontrun = FALSE)

  if (!file.exists(exfile)) {
    next
  }
  example <- readLines(exfile)
  eval(parse(text = paste(example, collapse = "\n")))
}