data now read in via global.R

global.R

@@ -0,0 +1,25 @@
+# 
+# LOADING LIBRARIES
+# ***********************************************
+library(shiny)
+library(lattice)
+library(latticeExtra)
+library(tidyr)
+library(dplyr)
+library(shinyTree)
+library(shinythemes)
+library(dendextend)
+
+
+# LOADING EXTERNAL FUNCTIONS AND DATA
+# ***********************************************
+for (Rfile in list.files("R", full.names = TRUE)) {
+  source(Rfile)
+}
+
+# list of data files
+datalistfiles <- list.files("data", pattern = "\\.Rdata$", full.names = TRUE)
+# load all of them
+for (path in datalistfiles) load(path)
+# clean names for selectInput
+datalistfiles <- gsub("^data/|.Rdata$", "", datalistfiles)

server.R

@@ -9,9 +9,9 @@ server <- function(input, output) {
   data <- reactive({
 
     # read user selected data set
-    load(input$UserDataChoice)
-    # coerce to base data.frame
-    data %>% ungroup %>% as.data.frame
+    get(input$UserDataChoice) %>%
+      # coerce to base data.frame
+      ungroup %>% as.data.frame
   })
 
   # GENERIC DATA FILTERING

ui.R

@@ -1,26 +1,4 @@
-# 
-# LOADING LIBRARIES
-# ***********************************************
-library(shiny)
-library(lattice)
-library(latticeExtra)
-library(tidyr)
-library(dplyr)
-library(shinyTree)
-library(shinythemes)
-library(dendextend)
-
-
-# LOADING EXTERNAL FUNCTIONS AND DATA
-# ***********************************************
-for (Rfile in list.files("R", full.names = TRUE)) {
-  source(Rfile)
-}
-
-# list of data files
-datalistfiles <- list.files("data", pattern = "\\.Rdata$", full.names = TRUE)
-
-
+#
 # SHINY UI
 # ***********************************************
 # Define user interface for application