correction of unzip for read-only dirs

DESCRIPTION

@@ -2,7 +2,7 @@ Package: restatapi
 Type: Package
 Title: Search and Retrieve Data from Eurostat Database
 Date: 2021-09-10
-Version: 0.11.1
+Version: 0.11.2
 Encoding: UTF-8
 Authors@R: person("Mátyás", "Mészáros", email = "[email protected]", role = c("aut", "cre"))
 Description: Eurostat is the statistical office of the European Union and provides high quality statistics for Europe.

NEWS.md

@@ -1,3 +1,7 @@
+# restatapi 0.11.2
+
+- unzipping to a temporary directory in order to avoid error by read-only user directory
+
 # restatapi 0.11.1
 
 - correction of tests when the TOC is corrupted

R/extract_data.R

@@ -24,10 +24,11 @@
 #' if (!is.null(bulk_url)){
 #'   temp<-tempfile()
 #'   download.file(bulk_url,temp)
-#'   sdmx_xml<-xml2::read_xml(unzip(temp, paste0(id,".sdmx.xml")))
+#'   sdmx_xml<-xml2::read_xml(unzip(temp,paste0(id,".sdmx.xml"),exdir=tempdir()))
 #'   xml_leafs<-xml2::xml_find_all(sdmx_xml,".//data:Series")
 #'   extract_data(xml_leafs[1])
 #'   unlink(temp)
+#'   unlink(file.path(tempdir(),paste0(id,".sdmx.xml")))
 #' }
 #' }
 #' 

R/get_compressed_sdmx.R

@@ -44,23 +44,24 @@ get_compressed_sdmx<-function(url=NULL,verbose=FALSE){
       } else {
         fajl<-paste0("DataResponse-",sub("^.*\\/","",url,perl=TRUE))
       }
+      tmpdir<-tempdir()
       if (verbose) {
-        tryCatch({xml_fajl<-utils::unzip(temp,paste0(fajl,".xml"))},
+        tryCatch({xml_fajl<-utils::unzip(temp,paste0(fajl,".xml"),exdir=tmpdir)},
                  error = function(e) {
                    message("get_compressed_sdmx - Error during the unzip of the SDMX file:",'\n',paste(unlist(e),collapse="\n"))
                  },
                  warning = function(w) {
                    message("get_compressed_sdmx - Warning by the unzip of the SDMX file:",'\n',paste(unlist(w),collapse="\n"))
                  })
       } else {
-        tryCatch({xml_fajl<-utils::unzip(temp,paste0(fajl,".xml"))},
+        tryCatch({xml_fajl<-utils::unzip(temp,paste0(fajl,".xml"),exdir=tmpdir)},
                  error = function(e) {},
                  warning = function(w) {})
       }
     }  
   }
   if (!is.null(xml_fajl)){xml<-xml2::read_xml(xml_fajl)} else {xml<-NULL}
   unlink(temp)
-  unlink(paste0(fajl,".xml"))
+  unlink(file.path(tmpdir,paste0(fajl,".xml")))
   return(xml)
 }