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

21 lines
476 B
R

f_reactable <- function(daten, coldefs = NULL){
reactable(daten,
selection = "single",
bordered = TRUE,
defaultPageSize = 17,
filterable = TRUE,
highlight = TRUE,
striped = F,
theme = reactableTheme(
highlightColor = "#00f200",
borderColor = "#dfe2e5",
rowSelectedStyle = list(backgroundColor = "#98F5FF"),
),
compact = TRUE,
rowStyle = list(cursor = "pointer"),
onClick = "select",
columns = coldefs
)
}