use R platform independent temp directory

NCEAS · Oct 26, 2017 · 3c13e48 · 3c13e48
1 parent 36bb34b
commit 3c13e48
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/main/resources/code/mdq-cache.R b/src/main/resources/code/mdq-cache.R
@@ -19,7 +19,7 @@ library(httr)
 #'
 #' @examples
 get <- function(url) {
-    temp_dir = Sys.getenv("MDQE_CACHE_DIR", "~/tmp")
+    temp_dir = Sys.getenv("MDQE_CACHE_DIR", tempdir())
     if (temp_dir == "") stop("MDQE_CACHE_DIR was not set.")
     if (!file.exists(temp_dir))
       stop(paste0("MDQE_CACHE_DIR was set to a path that does not exist: ",