f_reactable <- function(daten, coldefs = NULL, selection = "single", defaultSelected = NULL, hoehe = NULL) { reactable( daten, selection = selection, defaultSelected = defaultSelected, # Ermöglicht das Wiederherstellen der Auswahl pagination = F, defaultPageSize = 17, showPageSizeOptions = TRUE, filterable = TRUE, highlight = TRUE, height = hoehe, # <--- FIXIERT DEN HEADER und macht den Body scrollbar bordered = TRUE, striped = FALSE, compact = TRUE, # Styling theme = reactableTheme( highlightColor = "#e6f7ff", # Etwas dezenter als knallgrün, optional # borderColor = "#dfe2e5", rowSelectedStyle = list(backgroundColor = "#98F5FF")# ), rowStyle = list(cursor = "pointer"), onClick = "select", columns = coldefs ) }