if(is.null(Sys.getenv('CMD_ARG_ALL_TEST')))
exit_file("Set CMD_ARG_ALL_TEST environment variable to run these tests in this file.")
# Test pairlist.h
Rcpp::sourceCpp("cpp/pairlist.cpp")
expect_equal(test_pairlist(list(1, 30), rep), do.call(rep, list(1, 30)))
expect_identical(test_pairlist(list(formula = mpg ~ hp, data = mtcars), lm),
do.call(lm, list(formula = mpg ~ hp, data = mtcars)))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.