Merge pull request #394 from rivm-syso/Issue_392

Merging hotfix from master into dev

Dockerfile

@@ -47,6 +47,7 @@ RUN install2.r --error --skipinstalled --ncpus -1 \
      shinyalert \
      datawizard \
      shinybusy \
+     filelock \
      colorBlindness \
      && rm -rf /tmp/downloaded_packages
 

global.R

@@ -36,6 +36,7 @@ library(shiny.i18n)
 # Databases (essential)
 library(RSQLite)
 library(pool)
+library(filelock)
 
 # Visualisation
 library(leaflet)         # For maps
@@ -53,6 +54,7 @@ library(sf)
 library(logger)
 #log_threshold(loglevel)
 
+# AT libraries
 library(samanapir)
 library(ATdatabase)
 
@@ -80,8 +82,18 @@ db_script <- here::here("scripts","container_data_prep.R")
 system2("Rscript", db_script, wait = TRUE)
 
 # launch queue manager
-qm_script <- here::here("scripts","queue_manager.R")
-system2("Rscript", qm_script, wait = FALSE)
+
+lockfile <- file.path(get_database_dirname(), "lock")
+lfres <- lock(lockfile, timeout = 1000)
+
+if(!is.null(lfres)) {
+    log_info("Starting queue manager")
+    qm_script <- here::here("scripts","queue_manager.R")
+    system2("Rscript", qm_script, wait = FALSE)
+} else {
+    log_info("Queue manager not started")
+}
+
 
 # Set language and date options                                             ====
 options(encoding = "UTF-8")                  # Standard UTF-8 encoding