'external_data' folder as optional second source of data files

wilson-basic/app.R

@@ -498,6 +498,19 @@ server <- function(session, input, output) {
   # Use all .se and .clarion files specified in data/
   load <- sapply(list.files(path = "data/", pattern = "\\.se|\\.clarion"), function(x){ paste0("data/", x)})
 
+  # check for additional data
+  if (dir.exists("external_data/")) {
+    # use all .se and .clarion files specified in external_data/
+    external <- sapply(list.files(path = "external_data/", pattern = "\\.se|\\.clarion"), function(x){ paste0("external_data/", x)})
+
+    if (length(external) > 0) {
+      # merge file lists
+      load <- c(load, external)
+      # sort by name
+      load <- load[order(names(load))]
+    }
+  }
+
   output$fileLoader <- renderUI({
     shiny::req(input$data_origin)