samples <- system.file("tests", "testthat", package = "evaluate")
if (file_test("-d", samples)) {
replay(evaluate(file(file.path(samples, "order.R"))))
replay(evaluate(file(file.path(samples, "plot.R"))))
replay(evaluate(file(file.path(samples, "data.R"))))
}
Run the code above in your browser using DataLab