tests/testthat/teardown_tests.R

In contextual: Simulation and Analysis of Contextual Multi-Armed Bandit Policies

delete_files <- dir(path=".", pattern="*.csv")
file.remove(delete_files)

delete_files <- dir(path=".", pattern="*.pdf")
file.remove(delete_files)

delete_files <- dir(path=".", pattern="*.svg")
file.remove(delete_files)

delete_files <- dir(path=".", pattern="*.log")
file.remove(delete_files)