diff --git a/global.R b/global.R index ab1dfef90a505e482fe185578c6c0548569c656c..f9f1cb54769ef74473f42e12d57957dd9e3b5c0c 100644 --- a/global.R +++ b/global.R @@ -1,3 +1,41 @@ +# 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') diff --git a/modules/auxfunc.R b/modules/auxfunc.R index 7d1ac87c6b94f38795994082b6875e1bc8d0dc6e..07a017f37430a2c7f6eb259a094c44185c980888 100644 --- a/modules/auxfunc.R +++ b/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 diff --git a/ui.R b/ui.R index 2d1915216af6745c96bc22df2c0e47f2810e4211..af7023adc3535191c52971e1efb9c57d41b9326f 100644 --- a/ui.R +++ b/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