library(rjson)
library(shiny)
library(bslib)
library(leaflet)
library(sf)
library(htmltools)


crime_json <- fromJSON(file="data.json")
#View(crime_json)

geo_bezirke <- st_read("geobezirke-parsed.json")
geo_bezirke <- st_transform(geo_bezirke, crs = 4326)
geo_bezirke$leaflet_id <- paste("bez_", geo_bezirke$bezirk, sep="")


geo_stadtteile <- st_read("geostadtteile-parsed.json")
geo_stadtteile <- st_transform(geo_stadtteile, crs = 4326)
geo_stadtteile$leaflet_id <- paste("std_", geo_stadtteile$stadtteil, sep="")
bezirke <- names(crime_json)

ui <- page_fillable(
  page_sidebar(
    layout_columns(
      leafletOutput("hhmap"),
      card(
        textOutput("txt_map_selection"),
        "2024",
        tableOutput("tbl_2024"),
        "2023",
        tableOutput("tbl_2023"),
      ),
      col_widths = c(9, 3),
    ),
    sidebar = sidebar(
      radioButtons(
        inputId = "rd_maptype",
        label = "Kartentyp",
        choices = c("Bezirke", "Stadtteile"),
        selected = "Bezirke"
      ),
      selectInput(
        inputId = "drp_bezirk",
        label = "Bezirk",
        choices = bezirke
      ),
      selectInput(
        inputId = "drp_stadtteil",
        label = "Stadtteil",
        choices = NULL,
      ),
    ),
  )
)
server <- function(input, output, session){
  
  observeEvent(input$drp_bezirk, {
    sel_bezirk <- input$drp_bezirk
    
    if (sel_bezirk != "") {
      
      # Neue Auswahlmöglichkeiten bestimmen
      sel_stadtteile <- names(crime_json[[sel_bezirk]])
      
      # Zweites SelectInput-Feld aktualisieren
      updateSelectInput(
        session, 
        inputId = "drp_stadtteil", 
        choices = sel_stadtteile,
        selected = sel_stadtteile[1] # Wählt den ersten Eintrag vor
      )
      
    }
  })
  
  observeEvent(input$rd_maptype, {
    maptype <- input$rd_maptype
    mapproxy <- leafletProxy("hhmap")
    
    if (maptype == "Bezirke"){
      hideGroup(mapproxy, "layer_stadtteile")
      showGroup(mapproxy, "layer_bezirke")
    } 
    else {
      hideGroup(mapproxy, "layer_bezirke")
      showGroup(mapproxy, "layer_stadtteile")
      
    }
  })
  
  observeEvent(input$hhmap_shape_click, {
    click_event <- input$hhmap_shape_click
    # Check if an ID was returned (meaning a polygon was clicked)
    if (!is.null(click_event$id)) {
      
      # The ID of the clicked polygon
      clicked_polygon_id <- click_event$id
      output$txt_map_selection <- renderText({
        clicked_polygon_id
      })
      print(paste("Polygon with ID", clicked_polygon_id, "was clicked."))
    }
  })
  
  output$hhmap <- renderLeaflet({
    leaflet() %>%
      addProviderTiles(providers$CartoDB.Positron) %>%
      addPolygons(
        data = geo_bezirke,
        layerId = ~leaflet_id,
        group = "layer_bezirke",
        color = "#7bb5ab",
        fillColor = "#bdf0e7",
        weight = 1,
        fillOpacity = 0.4,      # Polygon fill transparency
        highlightOptions = highlightOptions(
          color = "#103b57",
          weight = 4,
          bringToFront = TRUE
        ),
      ) %>%
      addPolygons(
        data = geo_stadtteile,
        group = "layer_stadtteile",
        layerId = ~leaflet_id,
        color = "#7bb5ab",
        fillColor = "#bdf0e7",
        options = pathOptions(pane = "overlayPane"), # Use a leaflet option to ensure it's hidden
        weight = 1,
        fillOpacity = 0.4,      # Polygon fill transparency
        highlightOptions = highlightOptions(
          color = "#103b57",
          weight = 4,
          bringToFront = TRUE
        ),
      ) %>%
      
      setView(
        lng = 9.98716634776887,
        lat = 53.5488439196432,
        zoom = 11
      )
  })

  Names = c("Raub", "Diebstahl", "BtMG")
  Faelle = c(1234, 5678, 9000)
  Aufgeklaert = c(687867, 768789, 658)
  Relativ = c("15%", "70%", "69%")
  fake_data <- data.frame(
    Name = Names,
    Faelle = Faelle,
    Aufgeklärt = Aufgeklaert,
    Relativ = Relativ,
    stringsAsFactors = FALSE
  )
  output$tbl_2024 <- renderTable(fake_data, striped = TRUE)
  output$tbl_2023 <- renderTable(fake_data, striped = TRUE)
}
options(shiny.host = '0.0.0.0')
options(shiny.port = 8888)
shinyApp(ui = ui, server = server)