Data-Science-with-R/Tutorials/Tutorial6-shiny/ui.R at master · tz33cu/Data-Science-with-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
library(shiny)
library(DT)

shinyUI(
  fluidPage(
  headerPanel('Air Quality Data'),
  sidebarPanel(
    title = 'Air Quality Data',
    selectInput('xcol', 'X Variable', names(airquality)[-c(5,6)],
                selected=names(airquality)[[2]]),
    selectInput('ycol', 'Y Variable', names(airquality)[-c(5,6)],
                selected=names(airquality)[[1]]),
    # actionButton('select2', 'Select the above variables.'),
    sliderInput("subsample", label = "Size of random samples",
                min = 5, max = 50, value = 10, step = 5),
    actionButton('resetSelection',
                 label = "Click to reset row selection"
    ) # end of action button
  ),
  mainPanel(

    fluidRow(
      column(6,
             h1('select at least 2 rows'),
             DT::dataTableOutput('x1')),
      column(6,
             plotOutput('x2', height = 400))
    ),
    verbatimTextOutput('info')
  )
))