Interactive-SAX-Visualization/ui.R at master · Pragith/Interactive-SAX-Visualization · 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
library(dygraphs)
library(shiny)

shinyUI(fluidPage(

  # Application title
  titlePanel("Interactive SAX Visualization"),

  # Sidebar with a inputs
  sidebarLayout(
    sidebarPanel(

      ##  Dataset Dropdown
      selectInput("dataset",
                  "Dataset:",
                  c("ecg_anomaly1","ecg_anomaly2","ecg_anomaly3","h_ref","h_test","power_data","power_short"),
                  selected = "h_test",
                  multiple = FALSE)

      ##  wlen input
      ,numericInput("wlen",
                   "Window Length:",
                   value = 250)

      ##  nsyms input
      ,numericInput("nsyms",
                   "Number of symbols (length):",
                   value = 4)

      ##  asize input
      ,numericInput("asize",
                    "Alphabet Size (a,b,c,d...):",
                    value = 4)

      ,tableOutput("pattern_table")
    ),

    # Show a plot of the generated distribution
    mainPanel(
      #tableOutput("pattern_table")
      dygraphOutput("g4_graph")
      ,dygraphOutput("g3_graph")
      ,dygraphOutput("g1_graph")
      ,dygraphOutput("g2_graph")
    )
  )
))