Millicool/shiny-app
1
0
Fork 0
Code Issues Pull Requests 1 Actions Packages Projects Releases Wiki Activity

Make year selectable for comparison

Browse Source
This commit is contained in:
Millicool
2026-01-21 10:23:38 +01:00
parent 49a39e8cf0
commit 36446df4ae
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
server.R
View File

@@ -39,6 +39,10 @@ server <- function(input, output, session) {
currently_selected_maptype(input$rd_maptype) currently_selected_maptype(input$rd_maptype)
}) })
observeEvent(input$vergleichs_jahr, {
currently_compared_year(input$vergleichs_jahr)
})
observe({ observe({
maptype <- currently_selected_maptype() maptype <- currently_selected_maptype()
heatmap <- currently_selected_heatmap_crime() heatmap <- currently_selected_heatmap_crime()
@@ -257,7 +261,7 @@ server <- function(input, output, session) {
data_tibble <- map_data_to_plot( data_tibble <- map_data_to_plot(
locations = currently_compared_location(), locations = currently_compared_location(),
crimes = currently_compared_crimes(), crimes = currently_compared_crimes(),
year = "2024" year = currently_compared_year()
) )
ggplot(data_tibble, aes(x = Location, y = Erfasst, group = Name, fill = Name)) + ggplot(data_tibble, aes(x = Location, y = Erfasst, group = Name, fill = Name)) +