server.R 1023 Bytes
Newer Older
Midoux Cedric's avatar
PCA  
Midoux Cedric committed
1
options(shiny.maxRequestSize = 30 * 1024 ^ 2)
Midoux Cedric's avatar
Midoux Cedric committed
2

3
library(shinydashboard)
Midoux Cedric's avatar
Midoux Cedric committed
4
library(shinymeta)
Midoux Cedric's avatar
Midoux Cedric committed
5 6 7
library(phyloseq)
library(phyloseq.extended)
library(ggplot2)
Midoux Cedric's avatar
Midoux Cedric committed
8
library(dplyr)
Midoux Cedric's avatar
Midoux Cedric committed
9
library(glue)
Midoux Cedric's avatar
PCA  
Midoux Cedric committed
10
library(factoextra)
11 12 13

shinyServer
(function(input, output, session)
Midoux Cedric's avatar
Midoux Cedric committed
14 15 16
{  
  source("internals.R")
  source("panels/dataInput.R", local = TRUE)
17
  source("panels/Summary-server.R", local = TRUE)
Midoux Cedric's avatar
Midoux Cedric committed
18
  source("panels/barplot-server.R", local = TRUE)
Midoux Cedric's avatar
Midoux Cedric committed
19
  source("panels/heatmap-server.R", local = TRUE)
Midoux Cedric's avatar
Midoux Cedric committed
20
  source("panels/rarefactionCurve-server.R", local = TRUE)
Midoux Cedric's avatar
Midoux Cedric committed
21
  source("panels/richnessA-server.R", local = TRUE)
Midoux Cedric's avatar
Midoux Cedric committed
22
  source("panels/richnessB-server.R", local = TRUE)
Midoux Cedric's avatar
Midoux Cedric committed
23
  source("panels/mds-server.R", local = TRUE)
Midoux Cedric's avatar
Midoux Cedric committed
24
  source("panels/pca-server.R", local = TRUE)
Midoux Cedric's avatar
Midoux Cedric committed
25
  source("panels/tree-server.R", local = TRUE)
Midoux Cedric's avatar
Midoux Cedric committed
26
  source("panels/cluster-server.R", local = TRUE)
27 28 29 30 31 32 33

  physeq <- reactiveVal()

  showModal(dataInput())

  observeEvent(input$dataButton, {
    showModal(dataInput())
34
  })
35
  
Midoux Cedric's avatar
Midoux Cedric committed
36 37 38 39
  observeEvent(input$plotButton, {
    showModal(plotDownload())
  })
  
Midoux Cedric's avatar
Midoux Cedric committed
40
})