Add border to dropdown content

ui.R

@@ -51,6 +51,14 @@ ui <- function() {
                       choices = c("Bezirke", "Stadtteile"),
                       selected = "Bezirke"
                     ),
+                    tags$head(
+                      tags$style(HTML("
+                      .selectize-dropdown-content .option {
+                        border-bottom: 1px solid #dee2e6; /* Die Trennlinie */
+                        padding: 8px 10px;               /* Abstand zwischen Text und Linie */
+                      }
+                    "))
+                    ),
                     selectizeInput(
                       inputId = "search",
                       label = tags$span(icon("search"),"Suche"),