Add separate R scripts for each testthat context function