Limit max.print to be at most 10000

If .Rprofile has max.print set to a low value like 100 (common if the user routinely works with datasets that lock up the screen for minutes at a time even with 10000 rows), then just calling options(max.print = 10000) will silently override their wishes.
In case max.print is somehow NULL, how about:

```S
if (getOption("max.print", 10000) > 10000)
   options(max.print = 10000)
```