### shiny app
ui <- fluidPage(
titlePanel(p("Irish Weather Stations and Rainfall per Month", style="color:#eb6b34")),
sidebarLayout(
sidebarPanel(
selectInput(
inputId = "variableselected",
label = "Select Station",
choices = c("Belfast","Dublin Airport","University College Galway","Cork Airport","All")
),
p("Map of Ireland and Stations"),
leafletOutput(outputId = "map")
),
#mainPanel("Rainfall per Month")
mainPanel(
dygraphOutput(outputId = "timetrend"),
),
),
)
server <- function(input, output, session) {
rainstat <- reactive({
df = st_read('weather_stations.geojson', quiet=TRUE)
as.data.frame(df) %>%
dplyr::select(Year, Month, Rainfall, Station)
})
map_data <- reactive({
st_read('weather_stations.geojson', quiet=TRUE) %>%
dplyr::select(Station, geometry) %>%
dplyr::filter(Station %in% c("Belfast","Dublin Airport","University College Galway","Cork Airport")) %>%
unique() %>%
st_transform(4326)
})
output$table <- renderDT(rainstat)
output$timetrend <- renderDygraph({
rainstat <- rainstat()
dataxts <- NULL
if(input$variableselected == "All"){
filter_stats <- c("Belfast","Dublin Airport","University College Galway","Cork Airport")
for(l in 1:4){
rainstat %>% as.data.frame() %>%
dplyr::filter(Station == filter_stats[l]) %>%
dplyr::summarise(Rainfall=sum(Rainfall), .by = c(Year,Month)) %>%
pull(Rainfall) -> data_station
dd <- ts(
data <- as.data.frame(data_station),
start=c(1850,1), freq=12
)
dataxts <- cbind(dataxts,dd)
}
colnames(dataxts) <- filter_stats
dygraph(dataxts) %>%
dyRangeSelector(retainDateWindow = TRUE) %>%
dyHighlight(highlightSeriesBackgroundAlpha = 0.2) -> d1
d1$x$css <- "
.dygraph-legend > span {display:none;}
.dygraph-legend > span.highlight { display: inline; }
"
d1
}else{
rainstat %>%
filter(Station == input$variableselected) %>%
dplyr::summarise(Rainfall=sum(Rainfall), .by =c(Year,Month)) %>%
pull(Rainfall) %>%
ts(start=c(1850,1), freq=12) -> unique_stat
dygraph(unique_stat) %>%
dyRangeSelector(retainDateWindow = TRUE) %>%
dyHighlight(highlightSeriesBackgroundAlpha = 0.2) -> d1
d1
}
})
output$map <- renderLeaflet({
rainstat <- rainstat()
map <- map_data()
if(input$variableselected == "All"){
rainstat_stats <- rainstat %>% filter(Year == 1850)
order_stats <- match(map$Station, rainstat_stats$Station)
map$rain <- rainstat_stats[order_stats,]
coords <- map %>%
select(geometry) %>%
st_coordinates() %>%
as.data.frame() %>%
rename(longitude = X, latitude = Y)
map <- map %>%
mutate(longitude = coords$longitude, latitude = coords$latitude)
labels <- sprintf("%s", input$variableselected) %>%
lapply(htmltools::HTML)
l <- leaflet() %>%
addTiles() %>%
addMarkers(data = map,
lng = ~longitude, lat = ~latitude,
popup = map$Stations,
layerId = ~Station)
l
}else{
rainstat_stats <- rainstat %>% filter(Year == 1850)
rainstat_stats <- rainstat %>% filter(Station == input$variableselected)
order_stats <- match(map$Station, rainstat_stats$Station)
map$rain <- rainstat_stats[order_stats,]
coords <- map %>%
filter(Station == input$variableselected) %>%
select(geometry) %>%
st_coordinates() %>%
as.data.frame() %>%
rename(longitude = X, latitude = Y)
map <- map %>%
mutate(longitude = coords$longitude, latitude = coords$latitude)
labels <- sprintf("%s", input$variableselected) %>%
lapply(htmltools::HTML)
l <- leaflet() %>%
addTiles() %>%
addMarkers(data = map,
lng = ~longitude, lat = ~latitude,
popup = map$Stations,
layerId = ~Station)
l
}
})
observeEvent(input$map_marker_click, {
click <- input$map_marker_click
station <- click$id
updateSelectInput(session, "variableselected", selected = station)
})
}
shinyApp(ui = ui, server = server, options = list(height=700))Shiny applications not supported in static R Markdown documents
