use tempfile()

inbo · Aug 29, 2023 · 82c0e44 · 82c0e44
1 parent ee68b27
commit 82c0e44
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/get_feature_wfs.R b/R/get_feature_wfs.R
@@ -188,12 +188,12 @@ store_as_gml <- function(content, ...) {
 }
 
 store_as_gml.raw <- function(
-    content, destfile = paste0(tempfile(), ".gml"), ...) {
+    content, destfile = tempfile(fileext = "gml"), ...) {
   writeBin(content, destfile, useBytes = TRUE)
 }
 
 #' @importFrom xml2 write_xml
 store_as_gml.xml_document <- function(
-    content, destfile = paste0(tempfile(), ".gml"), ...) {
+    content, destfile = tempfile(fileext = "gml"), ...) {
   write_xml(content, destfile)
 }