use tempfile in gnr_resolve, bumped 99

ropensci · Jun 29, 2015 · fee1aa9 · fee1aa9
1 parent 57e25e4
commit fee1aa9
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -4,7 +4,7 @@ Description: Taxonomic information from around the web. This package
     interacts with a suite of web 'APIs' for taxonomic tasks, such
     as verifying species names, getting taxonomic hierarchies,
     and verifying name spelling.
-Version: 0.6.0.9960
+Version: 0.6.0.9961
 License: MIT + file LICENSE
 URL: https://github.com/ropensci/taxize
 BugReports: https://github.com/ropensci/taxize/issues

diff --git a/R/gnr_resolve.R b/R/gnr_resolve.R
@@ -90,8 +90,9 @@ gnr_resolve <- function(names, data_source_ids = NULL, resolve_once = FALSE,
     for (i in seq_along(nms)) {
       tt <- data.frame(num = 1:length(nms[[i]]), names = nms[[i]])
       tt <- data.frame(ddply(tt, .(num), summarise, paste0(num, "|", names))[,2])
-      write.table(tt, file = "~/gnr_names.txt", row.names = FALSE, col.names = FALSE, quote = FALSE)
-      ss <- POST(url, query = args, body = list(file = upload_file(path = "~/gnr_names.txt")), ...)
+      file <- tempfile(fileext = ".txt")
+      write.table(tt, file = file, row.names = FALSE, col.names = FALSE, quote = FALSE)
+      ss <- POST(url, query = args, body = list(file = upload_file(path = file)), ...)
       warn_for_status(ss)
       ss <- content(ss, "text")
       datbits[[i]] <- jsonlite::fromJSON(ss, FALSE)$data