Mocking in R
