Merge pull request #10 from majpark21/master

Automatic missing packages install

global.R

+# Check if all required packages are installed, if not attempt to install the missing ones
+required_packages = c(
+  "shiny",
+  "shinyjs",
+  "shinyBS",
+  "shinycssloaders",
+  "data.table",
+  "DT",
+  "ggplot2",
+  "gplots",
+  "plotly",
+  "scales",
+  "grid",
+  "dendextend",
+  "RColorBrewer",
+  "ggthemes",
+  "sparcl",
+  "dtw",
+  "factoextra",
+  "imputeTS",
+  "MASS",
+  "robust",
+  "pracma",
+  "Hmisc"
+)
+missing_packages =
+  required_packages[!(required_packages %in% installed.packages()[, "Package"])]
+
+if (length(missing_packages)) {
+  cat(paste(
+    "Missing packages:",
+    paste(missing_packages, collapse = ";"),
+    "\nAttempting to install them."
+  ))
+  install.packages(missing_packages)
+}
+
+# Load modules
 source('modules/auxfunc.R')
 source('modules/selOutliers.R')
 source('modules/downPlot.R')

modules/auxfunc.R

@@ -1152,7 +1152,7 @@ LOCplotTrajRibbon = function(dt.arg,
         alpha = ribbon.alpha.arg
       )
   
-  p.tmp = p.tmp + geom_line(aes_string(y = y.arg, colour = group.arg))
+  p.tmp = p.tmp + geom_line(aes_string(y = y.arg, colour = group.arg), size = 1.25)
   
   
   # plot stimulation bars underneath time series

ui.R

@@ -5,7 +5,6 @@
 # This is the user-interface definition for a Shiny web application.
 #
 
-
 library(shiny)
 library(shinyjs) # http://deanattali.com/shinyjs/
 library(shinyBS) # for tooltips