Fix bug reported by @EFreiberger that can add data to a data frame

ropensci · Jan 17, 2019 · 5dcf944 · 5dcf944
1 parent 73d4e46
commit 5dcf944
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/R/get_GSOD.R b/R/get_GSOD.R
@@ -193,6 +193,10 @@ get_GSOD <- function(years,
   }
 
   GSOD_XY <- apply_process_gz(file_list, isd_history)
+
+  # remove any leftover files from download to prevent poluting a new run
+  file.remove(list.files(tempdir(), pattern = ".gz$", full.names = TRUE))
+
   return(GSOD_XY)
 }