From c23d7d6aa2fb94a2349c4ec60f388e6b66bda649 Mon Sep 17 00:00:00 2001
From: Schultheis <hschult@kerckhoff.mpg.de>
Date: Tue, 26 Jun 2018 09:15:12 +0200
Subject: [PATCH] in case of duplicated names favor external data

---
 wilson-basic/app.R | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/wilson-basic/app.R b/wilson-basic/app.R
index 4006919..b918b74 100755
--- a/wilson-basic/app.R
+++ b/wilson-basic/app.R
@@ -504,6 +504,8 @@ server <- function(session, input, output) {
     external <- sapply(list.files(path = "external_data/", pattern = "\\.se|\\.clarion"), function(x){ paste0("external_data/", x)})
 
     if (length(external) > 0) {
+      # omit duplicated names from load
+      load <- load[setdiff(names(load), names(external))]
       # merge file lists
       load <- c(load, external)
       # sort by name