code-r/ui.R at master · rtremeaud/code-r · 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
shinyUI(fluidPage(
  titlePanel("Ciao Q&R"),
  as.character(img("logo_ciao_rvb.png")),
  sidebarLayout(
    sidebarPanel(
      helpText("Monitoring des questions réponses sur CIAO"),

      #dateInput("date", label = "Date input", value = "2014-01-01"),

      dateRangeInput("dates",language = "fr", label = "Période prise en compte",start = "2014-01-01",end = "2015-01-01",min ="2014-01-01",max = "2015-01-01" ),

      selectInput("var",
                 label = "Nombre de questions par region",
                  choices = levels(ciao2014$region),
                  selected =)
    #  actionButton("var2",label = "Q&R par sexe")

      ),
 # Ordre d’apparition des graphiques ---------------------------------------

    mainPanel(textOutput("text2"),
              plotOutput(outputId = "dates"),
              textOutput("text1"),
              plotOutput(outputId = "sex"),
              plotOutput(outputId = "var")


                            )
  )
))