[r] How to suppress warnings globally in an R Script