A way to mock adply

Well appreciated, in consequence I have added a test and a caveat to the docs. Making "your way" work with the current approach is much more difficult, we'll take a look at that later in hadley/testthat#171.