Test that all sim passed to plotting functions are `cropr_simulation` objects

This will help avoid the case where we forget to name the obs argument, *e.g.*:

```R
plot(sim, obs)
```

Instead of:

```R
plot(sim, obs=obs)
```
