`oldwarn = options(warn = 2)` and `options(oldwarn)` later