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