only show examples with file extension .clarion or .se

loosolab · Aug 2, 2018 · 0944b5c · 0944b5c
1 parent dc58404
commit 0944b5c
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/wilson-basic/app.R b/wilson-basic/app.R
@@ -504,12 +504,12 @@ server <- function(session, input, output) {
   # Data options
   #
   # Use all .se and .clarion files specified in data
-  load <- sapply(list.files(path = "data", pattern = "\\.se|\\.clarion"), function(x){ file.path("data", x)})
+  load <- sapply(list.files(path = "data", pattern = "\\.se$|\\.clarion$"), function(x){ file.path("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){ file.path("external_data", x)})
+    # use all .se and .clarion files specified in external_data
+    external <- sapply(list.files(path = "external_data", pattern = "\\.se$|\\.clarion$"), function(x){ file.path("external_data", x)})
 
     if (length(external) > 0) {
       # omit duplicated names from load