add new BASE error

chreman · chreman · commit 1364059467d1 · 2022-05-06T01:03:03.000+02:00
diff --git a/server/preprocessing/other-scripts/utils.R b/server/preprocessing/other-scripts/utils.R
@@ -110,6 +110,9 @@ detect_error <- function(failed, service) {
       if (grepl("xml_find_first", failed$query_reason, fixed=TRUE)){
         reason <- c(reason, 'API error: BASE not reachable')
       }
+      if (grepl("read_xml.raw", failed$query_reason, fixed=TRUE)){
+        reason <- c(reason, 'API error: BASE not reachable')
+      }
     }
     if (length(reason) == 0 && service == 'pubmed') {
       if (startsWith(failed$query_reason, "HTTP failure: 500") && grepl("error forwarding request", failed$query_reason, fixed=TRUE)){

Original file line number	Diff line number	Diff line change
`@@ -110,6 +110,9 @@ detect_error <- function(failed, service) {`
`110`	`110`	`if (grepl("xml_find_first", failed$query_reason, fixed=TRUE)){`
`111`	`111`	`reason <- c(reason, 'API error: BASE not reachable')`
`112`	`112`	`}`
	`113`	`+ if (grepl("read_xml.raw", failed$query_reason, fixed=TRUE)){`
	`114`	`+ reason <- c(reason, 'API error: BASE not reachable')`
	`115`	`+ }`
`113`	`116`	`}`
`114`	`117`	`if (length(reason) == 0 && service == 'pubmed') {`
`115`	`118`	`if (startsWith(failed$query_reason, "HTTP failure: 500") && grepl("error forwarding request", failed$query_reason, fixed=TRUE)){`