added apikey for altmetric

Author: chreman

docker-compose.yml

@@ -236,6 +236,7 @@ services:
       LANG: "en_US.UTF-8"
       RENV_PATHS_CACHE: /renv/cache
       PYTHONIOENCODING: "utf-8"
+      R_ALTMETRIC_APIKEY: "${R_ALTMETRIC_APIKEY}"
     restart: unless-stopped
     volumes:
       - ./local_dev/renv/cache:/renv/cache

server/preprocessing/other-scripts/metrics.R

@@ -4,6 +4,7 @@ library("plyr")
 
 mlog <- getLogger("metrics")
 
+apikey_altmetric <- Sys.getenv("R_ALTMETRIC_APIKEY")
 
 enrich_metadata_metrics <- function(metadata, metrics_sources=c("altmetric", "crossref")) {
   start.time <- Sys.time()
@@ -36,7 +37,7 @@ get_altmetrics <- function(dois) {
   for (doi in valid_dois) {
     tryCatch(
       {
-        metrics <- altmetric_data(altmetrics(doi = doi, apikey = ""))
+        metrics <- altmetric_data(altmetrics(doi = doi, apikey = apikey_altmetric))
         results <- rbind.fill(results, metrics)
       },
       error = function(err) {