inst/shinyPdM/server.R

In svcuong/PdM: R package for predictive maintenance

require(tools)
require(httr)
require(PdM)
require(stringi)
require(readr)
require(RWeka)
require(BBmisc)
require(checkmate)
require(ParamHelpers)
require(farff)
require(OpenML)
require(ggplot2)
require(DT)
require(parallelMap)
require(rmarkdown)
require(xtable)
require(plyr)
require(GGally)
require(plotly)


helper.files = list.files(path = "./helpers", pattern="*.R")
helper.files = paste0("helpers/", helper.files)

for (i in seq_along(helper.files)) {
  source(helper.files[i], local = TRUE)
}

# By default, the file size limit is 5MB. It can be changed by
# setting this option. Here we'll raise limit to 9MB.
options(shiny.maxRequestSize = 9*1024^2)

shinyServer(function(input, output, session) {
  shinyjs::addClass(id = "PdMlink", class = "navbar-right")

  server.files = list.files(path = "./server", pattern = "*.R")
  server.files = paste0("server/", server.files)
  for (i in seq_along(server.files)) {
    source(server.files[i], local = TRUE)
  hide(id = "loading-content", anim = TRUE, animType = "fade")
  show("app-content")
  }

  session$onSessionEnded(stopApp)
})