robustify metrics retrieval against missing data

chreman · chreman · commit d6e914717a88 · 2025-11-13T21:49:56.000+01:00
diff --git a/server/preprocessing/other-scripts/metrics.R b/server/preprocessing/other-scripts/metrics.R
@@ -104,7 +104,7 @@ add_citations <- function(metadata) {
         mlog$debug(gsub("[\r\n]", "", paste(err, doi, sep = " ")))
         cc_list <- append(cc_list, list(list(doi = doi, count = NA)))
       })
-      Sys.sleep(0.1)
+      Sys.sleep(0.05)
       }
       cc <- do.call(rbind.fill, cc_list)
     },

Original file line number	Diff line number	Diff line change
`@@ -104,7 +104,7 @@ add_citations <- function(metadata) {`
`104`	`104`	`mlog$debug(gsub("[\r\n]", "", paste(err, doi, sep = " ")))`
`105`	`105`	`cc_list <- append(cc_list, list(list(doi = doi, count = NA)))`
`106`	`106`	`})`
`107`		`- Sys.sleep(0.1)`
	`107`	`+ Sys.sleep(0.05)`
`108`	`108`	`}`
`109`	`109`	`cc <- do.call(rbind.fill, cc_list)`
`110`	`110`	`},`