inst/shiny/Gui/server.R

In YonghuiDong/RawHummus: Raw Data Quality Control Tool for LC-MS System

shinyServer(function(input, output, session) {
  options(shiny.maxRequestSize = 10000 * 1024^2) ## file size limit
  source("server-convert.R",local = TRUE)
  source("server-evaluate.R",local = TRUE)
  source("server-monitor.R",local = TRUE)

  observeEvent(input$sidebarmenu, {
    req(input$sidebarmenu == "convert")
    showModal(
      modalDialog(
        title = HTML('<p style="color:#FF6347;"><br>Attention:</br></p>'),
        strong("MSConvert function is designed for local usage only. Please read user guide for more details."),
        easyClose = TRUE
        )
      )
    })

  ## removing variables in global environment before exiting a shiny app
  onStop(function(){
    rm(msdata, envir = .GlobalEnv)
    gc()
    })

  })