Add padding to selection text

This commit is contained in:
2026-01-21 10:21:12 +01:00
parent c043c0120a
commit 49a39e8cf0

11
ui.R
View File

@@ -182,8 +182,11 @@ ui <- function() {
# farbe rgba ist die exakte Farbe der Trennlinien und Card-Umrandungen aus der App # farbe rgba ist die exakte Farbe der Trennlinien und Card-Umrandungen aus der App
) )
), ),
uiOutput("txt_map_selection_bezirk"), div(
uiOutput("txt_map_selection_stadtteil"), style ="padding: 0 15px; margin-top: 10px;",
uiOutput("txt_map_selection_bezirk"),
uiOutput("txt_map_selection_stadtteil"),
),
plotOutput("grph_top3"), plotOutput("grph_top3"),
), ),
col_widths = breakpoints( col_widths = breakpoints(
@@ -259,7 +262,7 @@ ui <- function() {
choices = c(2024, 2023), choices = c(2024, 2023),
selected = 2024, selected = 2024,
), ),
), ),
card( card(
card_header(uiOutput("vergleichs_titel")), # Dynamischer Titel card_header(uiOutput("vergleichs_titel")), # Dynamischer Titel
plotOutput("vergleich_balkendiagramm") plotOutput("vergleich_balkendiagramm")
@@ -296,5 +299,5 @@ ui <- function() {
), ),
), ),
) )
) )
} }