Add heatmap headline

ui.R

@@ -65,14 +65,17 @@ ui <- function() {
                         plugins = list('dropdown_header')
                       )
                     ),
-                    selectizeInput(
+                    div(
-                      inputId = "heatmap",
+                      tags$h5("Heatmap zur Häufigkeit der Straftaten:", style = "font-weight: bold; margin-bottom: 10px;"),                   
-                      label = "Wähle eine Straftat:",
+                      selectizeInput(
-                      choices = list_of_crimes,
+                        inputId = "heatmap",
-                      selected = NULL,
+                        label = "Wähle eine Straftat:",
-                      options = list(
+                        choices = list_of_crimes,
-                        placeholder = "Keine Auswahl",
+                        selected = NULL,
-                        plugins = list('clear_button')
+                        options = list(
+                          placeholder = "Keine Auswahl",
+                          plugins = list('clear_button')
+                        )
                       )
                     )
                   ),