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 DataCamp Workspace