# server.R
library(shiny)
noms <- readRDS("data\\noms.rds")
series <- readRDS("data\\series.rds")
source('c1_simple.R')
source('c2_simple.R')
source('c3_simple.R')
source('cusum_bn.R')
source('watkins.R')
source('fonctions_test.R')
shinyServer(function(input, output) {
serie_selectionnee <- reactive({
series[[input$nom.serie]]
})
etc...