tests/testthat/test-tutorials_autograph.R

In migraph: Inferential Methods for Multimodal and Other Networks

test_that("autograph tutorials work", {
  for(tute.dir in list.dirs(system.file("tutorials", package = "autograph"), 
                            recursive = F)){
    tute.file <- list.files(tute.dir, pattern = "*.Rmd", full.names = T)
    expect_null(test_tutorials(tute.file))
  }
})