Fixing 3D loading legend

DESCRIPTION

@@ -1,12 +1,12 @@
 Package: ravedash
 Type: Package
 Title: Dashboard System for Reproducible Visualization of 'iEEG'
-Version: 0.1.3.35
+Version: 0.1.3.36
 Authors@R: c(
     person("Zhengjia", "Wang", email = "dipterix.wang@gmail.com", role = c("aut", "cre", "cph"))
     )
 Description: Dashboard system to display the analysis results produced by 'RAVE'
-    (Magnotti J.F., Wang Z., Beauchamp M.S. (2020), R analysis 
+    (Magnotti J.F., Wang Z., Beauchamp M.S. (2020), Reproducible analysis 
     and visualizations of 'iEEG' <doi:10.1016/j.neuroimage.2020.117341>). 
     Provides infrastructure to integrate customized analysis pipelines into
     dashboard modules, including file structures, front-end widgets, and 

R/preset-loader-3dviewer.R

@@ -113,7 +113,7 @@ presets_loader_3dviewer <- function(
               control_display = FALSE,
               # show_modal = TRUE,
               background = theme$background,
-              palettes = list(Value = c("navy", "red", "gray80")),
+              palettes = list(Value = c("red", "navy", "gray80")),
               controllers = list(
                 "Background Color" = theme$background,
                 "Show Time" = FALSE
@@ -280,7 +280,7 @@ presets_loader_3dviewer2 <- function(
               control_display = FALSE,
               # show_modal = TRUE,
               background = theme$background,
-              palettes = list(Value = c("navy", "red", "gray80")),
+              palettes = list(Value = c("red", "navy", "gray80")),
               controllers = list(
                 "Background Color" = theme$background,
                 "Show Time" = FALSE