RChain: do not throw error when empty data is fetched (#3202)

* RChain: do not throw error when empty data is fetched * fixed typo --------- Co-authored-by: Stefano Ricci <[email protected]>
openforis · Dec 19, 2023 · 6f60cfe · 6f60cfe
1 parent 4f99cc3
commit 6f60cfe
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/server/modules/analysis/service/rChain/rFile/system/init-api.R b/server/modules/analysis/service/rChain/rFile/system/init-api.R
@@ -2,7 +2,7 @@ arena.parseResponse = function(resp) {
   resp <- httr::content(resp, as = "text")
   respJson = jsonlite::fromJSON(resp)
 
-  # Check whether response containts error
+  # Check whether response contains error
   respNames <- names(respJson)
   error <- NA
   if("error" %in% respNames){
@@ -35,7 +35,11 @@ arena.getToFile = function (url, query = NULL, file) {
 arena.getCSV = function (url, query = NULL) {
   tmp <- tempfile()
   arena.getToFile(url, query, file = tmp)
-  content <- suppressWarnings(read.csv(tmp))
+  if (file.info(tmp)$size > 0) {
+    content <- suppressWarnings(read.csv(tmp))
+  } else {
+    content <- NULL
+  }
   rm(tmp)
   return(content)
 }