R: replace options(“error”) with existing contents (if present) plus additional

Question

I have a function with an parameter (alerts) which allows the user to receive audible warnings on errors, and also cleans up left-open graphic devices: