samples <- system.file("tests", package = "evaluate")
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