global.R 1.21 KB
Newer Older
1
# Check if all required packages are installed, if not attempt to install the missing ones
2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
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"])]
cat(paste(
  "Missing packages:",
  paste(missing_packages, collapse = ";"),
  "\nAttempting to install them."
))
if (length(missing_packages))
  install.packages(missing_packages)

# Load modules
dmattek's avatar
dmattek committed
37
source('modules/auxfunc.R')
dmattek's avatar
dmattek committed
38
source('modules/selOutliers.R')
dmattek's avatar
dmattek committed
39
source('modules/downPlot.R')
dmattek's avatar
dmattek committed
40
source('modules/downCSV.R')
dmattek's avatar
Added:  
dmattek committed
41
source('modules/dispStats.R')
dmattek's avatar
dmattek committed
42
source('modules/dispTrackStats.R')
dmattek's avatar
Mod:  
dmattek committed
43
source('modules/trajPlot.R')
dmattek's avatar
dmattek committed
44
source('modules/trajRibbonPlot.R')
45
source('modules/trajPsdPlot.R')
dmattek's avatar
dmattek committed
46 47
source('modules/aucPlot.R')
source('modules/distPlot.R')
dmattek's avatar
Mod:  
dmattek committed
48
source('modules/clDistPlot.R')
49
source('modules/tabScatter.R')
dmattek's avatar
dmattek committed
50 51
source('modules/tabDist.R')
source('modules/tabAUC.R')
dmattek's avatar
dmattek committed
52
source('modules/tabClValid.R')
dmattek's avatar
Added:  
dmattek committed
53 54
source('modules/tabClHier.R')
source('modules/tabClHierSpar.R')