Check and reset original options()

Define original options and reset at end of `get_GSOD` function suggested by @jefferyhanson
ropensci · Oct 23, 2016 · 960bb82 · 960bb82
1 parent 8372844
commit 960bb82
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/R/get_GSOD.R b/R/get_GSOD.R
@@ -231,8 +231,10 @@ get_GSOD <- function(years = NULL, station = NULL, country = NULL,
                      threads = 1) {
 
   # Set up options, creating objects, check variables entered by user-----------
+  orginal_options <- options()
   options(warn = 2)
   options(timeout = 300)
+
 
   # Set up tempfile and directory for downloading data from server
   tf <- tempfile()
@@ -392,8 +394,7 @@ get_GSOD <- function(years = NULL, station = NULL, country = NULL,
   # cleanup and reset to default state
   unlink(tf)
   unlink(td)
-  options(warn = 0)
-  options(timeout = 60)
+  options(original_options)
 }
 
 # Functions used within this package -------------------------------------------