Files
gemfin-shiny/R/_funktionen/f_table.R
T

25 lines
826 B
R

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
)
}