R tip: Test your code with testthat