Calling getOption() with default is slow

This has a measurable effect in apps with lots of reactives.

Reported by Aran Lunzer
Merge pull request #533 from rstudio/bugfix/slow-options

Calling getOption() with default is slow