ceph-break-and-fix/webapplication/ui.R at master · redhat-forum-madrid-2018/ceph-break-and-fix · 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
## ui.R ##

# (c) 2018 Jose Angel de Bustos Perez <jadebustos@redhat.com>
# Distributed under GPLv3 License (https://www.gnu.org/licenses/gpl-3.0.en.html)

library(shinydashboard)

header <- dashboardHeader(title = "Red Hat Forum 2018",
                          titleWidth = 250,
                          tags$li(class = "dropdown",
                                  tags$a(href = "https://www.redhat.com/",
                                         target = "_blank",
                                         tags$img(height = "20px",
                                                  src = "redhat.png")
                                  )
                          )
                          )

sidebar <- dashboardSidebar(
  width = 250,
  br(),
  sidebarMenu(
      width = 200,
      selectInput("choice", "Productos:", choices = products),
      hr(),
      sliderInput("freq",
                  "Frequencia mínima de palabras:",
                  min = 1,  max = 50, value = 10),
      sliderInput("max",
                  "Maximo número de palabras:",
                  min = 1,  max = 200,  value = 50),

    tags$hr()
    )
)

body <- dashboardBody(
    plotOutput("plot")
)

dashboardPage(
  skin="red",
  header,
  sidebar,
  body
)