Add font styling to card content

server.R

@@ -189,11 +189,26 @@ server <- function(input, output, session) {
         zoom = 11
       )
   })
-  output$txt_map_selection_bezirk <- renderText({
-    currently_selected_bezirk()
+  output$txt_map_selection_bezirk <- renderUI({
+    bez <- currently_selected_bezirk()
+    req(bez)
+    div(# Überschrift einfügen
+      class = "d-flex align-items-baseline gap-2",
+      style = "margin-bottom: 2px;",              # Ganz wenig Abstand zum nächsten Element
+      tags$b("Bezirk:", style = "font-size: 1.1rem;"), # 'b' ist kompakter als 'h5'
+      tags$span(bez, style = "font-size: 1.1rem;")
+    )
+    
   })
-  output$txt_map_selection_stadtteil <- renderText({
-    currently_selected_stadtteil()
+  output$txt_map_selection_stadtteil <- renderUI({
+    sdt <- currently_selected_stadtteil()
+    req(sdt)
+    div(
+      class = "d-flex align-items-end gap-2",
+      h5(strong("Stadtteil:"), style = "margin-bottom: 0;"),
+      p(sdt)
+    )
+    
   })
   output$grph_top3 <- renderPlot({
     data_tibble <- map_data_to_top3_plot(