Reduce nesting in tests by using withr::local_envvar() (#599)

* Simplify conditions and nesting

* Use suggestions to simplify code further

* refactor for better diff

Author: olivroy