in case of duplicated names favor external data

loosolab · Jun 26, 2018 · c23d7d6 · c23d7d6
1 parent 295d081
commit c23d7d6
Showing 1 changed file with 2 additions and 0 deletions.
diff --git 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