-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathui.R
108 lines (104 loc) · 3.29 KB
/
ui.R
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
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
#_______________________________________________________________________________
# libraries
library(shiny)
library(tidyverse)
library(leaflet)
library(scales)
library(plotly)
#_______________________________________________________________________________
#_______________________________________________________________________________
source("upas_functions.R")
#_______________________________________________________________________________
#_______________________________________________________________________________
pdf(file = NULL)
#_______________________________________________________________________________
#_______________________________________________________________________________
# ui function
fluidPage(
#_____________________________________________________________________________
# top row
fluidRow(
column(2, br(), "UPAS test app", p()
),
column(3,
offset = 0,
fileInput("file1", "", multiple = TRUE, accept = ".txt", width = "100%")
),
column(4, br(),
downloadButton("downloadData", "export processed data")
)
),
#_____________________________________________________________________________
# end top row
#_____________________________________________________________________________
# tab panels
fluidRow(column(10, offset = 1,
tabsetPanel(type = "tabs",
tabPanel("map",
fluidRow(column(2, offset = 1,
selectInput("map_color",
label = "",
choices = c("id", "dp", "t", "rh"),
selected = 1))),
fluidRow(
leafletOutput("upasmap", height = 800),
p()
)),
tabPanel("met",
fluidRow(
column(1, p())
#column(2, offset = 1,
#selectInput("select_id_met", label = "",
# choices = "id_list",
# selected = 1))
),
fluidRow(plotOutput("plot_met", height = "700px"))
),
tabPanel("op",
fluidRow(
column(1, p())
#column(2, offset = 1,
#selectInput("select_id_op", label = "",
#choices = "id_list",
#selected = 1))
),
fluidRow(plotlyOutput("plot_op_flow", height = "250px")),
fluidRow(plotlyOutput("plot_op_vol", height = "250px")),
fluidRow(plotlyOutput("plot_op_batv", height = "250px"))
#fluidRow(plotlyOutput("plot_op_batf", height = "200px"))
),
tabPanel("dp",
fluidRow(
column(1, p())
#column(2, offset = 1,
#selectInput("select_id_pm", label = "",
#choices = "id_list",
#selected = 1))
),
fluidRow(plotlyOutput("plot_pm", height = "700px"))
),
tabPanel("summary",
fluidRow(
column(1, p())
),
fluidRow(plotlyOutput("plot_hist_dp", height = "400px", width = "50%"))
),
tabPanel("about",
fluidRow(
column(width = 12,
align="left",
tags$footer(includeText("text/about.txt"),
style = "padding: 10px;"))),
fluidRow(
column(width = 12,
align="left",
tags$footer(includeText("text/about_2.txt"),
style = "padding: 10px;")))
)
)
)
)
#_______________________________________________________________________________
# close ui
)
#_______________________________________________________________________________