wavelet_app/ui.R at master · thuleef/wavelet_app · 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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
#UI
library(shiny)
#sensors <- read.csv('sensors.csv')
Station_Name <- c("Beijing", "Guangzhou", "Urumqi")
Variable_Name <- c("Precipitation", "Mean_Temperature", "Max_Temperature", "Min_Temperature")

fluidPage(fluidRow(
  br(),
  column(4,
         wellPanel(
           h4('Data Series'),
           selectInput(
             inputId = 'station',
             label = 'Station',
             choices = Station_Name
           ),
           selectInput(
             inputId = 'variable',
             label = 'Variable',
             choices = Variable_Name
           ),
           actionButton(inputId = 'submit.series', label = 'Select'),
           br(),
           br(),
           uiOutput('daterange')
         )),
  column(4,
         wellPanel(
           h4('Wavelet'),
           selectInput(
             inputId = 'filter',
             label = 'Filter',
             choices = c('haar', 'd4', 'la8')
           ),
           sliderInput(
             inputId = 'levels',
             label = 'Levels',
             min = 1,
             max = 8,
             value = 4,
             step = 1
           ),
           selectInput(
             inputId = 'boundary',
             label = 'Boundary',
             choices = c('periodic', 'reflection')
           ),
           actionButton(inputId = 'submit.filter', label = 'Filter')
         )),
  column(4,
    wellPanel(
      h4('Changepoint(s)'),
      numericInput(
        inputId = 'changepoints',
        label = 'Number',
        value = 1,
        min = 0
      ),
      checkboxInput(inputId = 'dispcpts', label = 'Display changepoint(s) on graphs.'),
      actionButton(inputId = 'submit.cpts', label = 'Find'),
      br(),
      h5('Location(s)'),
      verbatimTextOutput('changepoint')
    )
  )
),
tabsetPanel(
  tabPanel(title = 'Raw Data', br(), plotOutput('rawplot')),
  tabPanel(title = 'Detail Level Analysis', br(), uiOutput('details'), br(), uiOutput('plots')),
  tabPanel(
    title = 'Wavelet Variance by Scale',
    br(),
    radioButtons(
      inputId = 'est',
      label = 'Estimator Type',
      c('Biased', 'Unbiased'),
      selected = 'Unbiased',
      inline = TRUE
    ),
    br(),
    plotOutput('scaleplot')
  )
))