ade4shiny/server.R at main · adeverse/ade4shiny · GitHub

1
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
server <- function(input, output, session) {

  projet <<- reactiveValues(data = list(), # List of all dataframe
                           dudi = list(), # List of all dudi objects
                           plot = character(0), # Useful for visualisation
                           code = "library(ade4)\n") # Useful to write and download code


  # Save data button
  output$savedata <- downloadHandler(
    filename = "ade4_project.rds",
    content = function(file) {

      object <- list(data = projet$data, dudi = projet$dudi)
      saveRDS(object, file)
    }
  )

  # Save code button
  output$savecode <- downloadHandler(
    filename = "ade4_R_code.txt",
    content = function(file) {

      writeLines(projet$code, file)
    }
  )

  # R/LoadData.R
  LoadDataServer(input, output, session, projet)

  # R/SubsetData.R
  SubsetDataServer(input, output, session, projet)

  # R/ACP.R
  acpServer(input, output, session, projet)

  # R/COA.R
  coaServer(input, output, session, projet)

  # R/MCA.R
  mcaServer(input, output, session, projet)

  # R/HSA.R
  hsaServer(input, output, session, projet)

  # R/PCO.R
  pcoServer(input, output, session, projet)

  # R/BGA.R
  bgaServer(input, output, session, projet)

  # R/WGA.R
  wgaServer(input, output, session, projet)

  # R/Coinertia.R
  coinertiaserver(input, output, session, projet)

  # R/CCA.R
  ## ccaserver(input, output, session, projet)

  # R/PCAIV.R
  pcaIVserver(input, output, session, projet)

  # R/Visualisation.R
  visuServer(input, output, session, projet)


}