Location-Matching-Engine/AppControlTab.R at master · srinithish/Location-Matching-Engine · 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

###AppControlTab

ControlTab =  tabPanel(

                      "Control",

                      br(),

                      sliderInput("MatchPctThreshhold_Inp", "Location match % threshold",
                                  min = 0, max = 100,
                                  value = 85),

                      tags$hr(),

                      ### match intensity


                      fluidRow(
                        ###Match intensity
                        column(3,
                               radioButtons("MatchIntensity_Inp", "Match Intensity",
                                            choices = c("Superficial" = 1,
                                                        "Deep dive" = 2),
                                            selected  = 2)


                        ),

                        ###Comparision Type
                        column(3,
                               radioButtons("ComparisionType_Inp", "Comparision type",
                                            choices = c("Pre-Post" = "PrePost",
                                                        "Year-on-Year" = "YoY"))


                        )


                      ),

                      ##folder path to save the report at
                      textInput("FolderPath_Inp", label = h4("Save report at"), value = "C://Temp"),

                      ###Download Button


                      ##run button
                      actionButton("Run_Inp",h4("Run comparision"),width = '100%'),

                      br(),
                      br(),

                      downloadButton("finalReportDownload.xlsx", "Download Final Report"),


                      tags$hr(),

                      h4(textOutput("ComparisionCompleted_Output")),

                      h4(textOutput("message"))
                      )