Handle data.tables in MAP project objects

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: FREDA
 Title: An app for the processing and visualization of Fourier-transform mass spectrometry data.
-Version: 1.2.2
+Version: 1.2.3
 Authors@R: c(person("Lisa", "Bramer", "[email protected]", role = "aut", "cre"),
     person("Daniel", "Claborne", "[email protected]", role = c("aut")))
 Description: A frontend application which exposes functionality of the ftmsRanalysis R package.  See 

Observers/startup_observers.R

@@ -81,6 +81,15 @@ observe({
           )
         } else {
           # store in some reactive variable that e_data and e_meta....essentially check exists and use if so.
+          # convert the data in ftms_obj into data.frame if it is in data.table format.
+          if (inherits(ftms_obj$Data$e_data, "data.table")) {
+            ftms_obj$Data$e_data <- as.data.frame(ftms_obj$Data$e_data)
+          }
+
+          if (inherits(ftms_obj$Data$e_meta, "data.table")) {
+            ftms_obj$Data$e_meta <- as.data.frame(ftms_obj$Data$e_meta)
+          }
+
           revals$map_project <- ftms_obj 
         }
       }

ui.R

@@ -15,7 +15,7 @@ ui <- tagList(useShinyjs(),
   ),
 
   navbarPage(
-    title = tags$div("FREDA", tags$span(style = "font-size:small", "v1.2.2")),
+    title = tags$div("FREDA", tags$span(style = "font-size:small", "v1.2.3")),
     windowTitle = 'FREDA',
     id = "top_page",
     theme = "yeti.css",