From 12502c42086c8c12a3a465473453abb132ab3aae Mon Sep 17 00:00:00 2001 From: Millicool Date: Wed, 21 Jan 2026 10:26:22 +0100 Subject: [PATCH] Add font styling to card content --- server.R | 23 +++++++++++++++++++---- 1 file changed, 19 insertions(+), 4 deletions(-) diff --git a/server.R b/server.R index 67da979..b9e80e1 100644 --- a/server.R +++ b/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(