menugauche.R 2.35 KB
Newer Older
jlopez's avatar
jlopez committed
1
2
3
4
5
6
7
8
9
10
11
12
MenuGauche = sidebarMenu(id = "sidebarmenu",
                         menuItem("Home", tabName = "Home",  icon = icon("home", lib="font-awesome")),
                         
                         selectInput("pathMandrill", "Week:",
                                     PATHWEEK),
                        
                         
                         selectInput("uuidMandrill", "Mandrill:", multiple = FALSE, selected = "32-38-31-39-58-36-8e-0c",
                                     UUIDMANDRILL),
                         
                         checkboxGroupInput("checkGroupParam", label = "Diagramme :", 
                                            choices = list("Temperature" = 1, "Acceleration X" = 2, "Acceleration Y" = 3, "Acceleration Z" = 4),
13
14
                                            selected = c(1)),
                         
jlopez's avatar
jlopez committed
15
                         textInput("penaltyCP", "Temperature penalty change point :", "log(n)"),
16
                         
jlopez's avatar
jlopez committed
17
                         sliderInput("temperatureCP", "Temperature change point (Celcius) :",
18
19
                                     min = 0, max = 3, step = 0.1, value = 1.5),
                         
jlopez's avatar
jlopez committed
20
                         sliderInput("sizeCP", "Minimum temperature number change point :",
21
22
                                     min = 0, max = 20, step = 1, value = 5),
                         
jlopez's avatar
jlopez committed
23
                         textInput("penaltyCPM", "Mouvement penalty change point (algo):", "30*log(n)"),
24
                         
jlopez's avatar
jlopez committed
25
                         sliderInput("mouvementCP", "Mouvement maximum mean :",
26
27
                                     min = 0, max = 1, step = 0.01, value = 0.3),
                         
jlopez's avatar
jlopez committed
28
                         sliderInput("sizeCPM", "Minimum mouvement range size change point (minute):",
29
                                     min = 0, max = 120, step = 1, value = 30),
jlopez's avatar
jlopez committed
30
31
32
33
34
35
36
37
38
39
                         
                         actionButton("runButton", "Run"),

                         tags$br(), tags$br(), tags$br(),
                         
                         menuItem("Team", icon = icon("book", lib="font-awesome"),
                                  menuItem("Jimmy Lopez",  href = "http://www.isem.univ-montp2.fr/recherche/les-plate-formes/bioinformatique-labex/personnel/", newtab = TRUE,   icon = shiny::icon("male"), selected = NULL  )
                         )
                         
)