Nothing
if (interactive()) pkgload::load_all()
test_provide_makefile <- function() {
# This test is broken. I do not know, why result would be a list of 10 and
# why the 5th item is an error where the list breaks.
make_list <- fakemake:::provide_make_list(type = "minimal")
result <- fakemake:::makelist2igraph(make_list, root = "all.Rout")
RUnit::checkTrue(inherits(result, "igraph"))
result <- fakemake:::makelist2igraph(make_list, root = NULL)
RUnit::checkTrue(inherits(result, "igraph"))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.