-
Notifications
You must be signed in to change notification settings - Fork 0
/
ui.R
94 lines (82 loc) · 3.33 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
#
# This is the user-interface definition of a Shiny web application. You can
# run the application by clicking 'Run App' above.
#
# Find out more about building applications with Shiny here:
#
# http://shiny.rstudio.com/
#
library(shiny)
library(shinyWidgets)
library(readr)
library(maps)
sites<-read_csv("./Data/Sites.csv")
# Define UI for application that draws a histogram
shinyUI(fluidPage(
# Application title
titlePanel("UK meteo data"),
tabsetPanel(
tabPanel("Plot",
#columns
fluidRow(
column(3,
wellPanel(
selectizeInput("stations",
"Select Stations",
sites[,2], #site station
options = list(maxItems = 5)
),
radioButtons("weather",
"Select Weather variable",
c("Wind speed"="wind_speed",
"Air temperature"="air_temperature",
"Humidity"="rltv_hum",
"Visibility"="visibility")
),
radioButtons("aggregation",
"Select Aggregation",
c("Raw hourly data",
"Daily averages",
"Monthly averages",
"Daily maxima",
"Daily minima")
),
uiOutput("timeaxis")
)
),
column(6,
plotOutput("Graph")
),
column(3,
plotOutput("map")
)
),
fluidRow(
column(3,
wellPanel(
downloadButton("downloadTable", "Download Table"),
downloadButton("downloadReport","Download Report")
)
),
column(9,
dataTableOutput("summary_table")
),
column(3,
)
)
),
tabPanel("Hutton",
fluidRow(
column(3,
wellPanel(
selectizeInput("hutton_station","Select station",sites[,2]),
uiOutput("pickMonth")
)
),
column(6,
dataTableOutput("hutton_table")
),
column(3)
))
)
))