some cosmetic changes

- note `if (FALSE) expr` returns NULL implicitly;
- fixed a typo;
- changed a series of `if (identical(x, y))` to `switch(x, y = ?)`;
- gave a default value to getOption()
use the mime package instead of putting a subset in utils.R
prepare a CRAN release