remove attempt at a key label
Changed options("xxx")[[1]] and unlist(options("xxx")) to
getOption("xxx").
Added some checks for NULL getOption("time.zone").