Adress-Modul erstellt

2026-04-28 14:39:37 +02:00
parent f16386810f
commit 089a930488
10 changed files with 287 additions and 8 deletions
@@ -32,4 +32,30 @@ f_reactable <- function(daten, coldefs = NULL, selection = "single",
    onClick = "select",
    columns = coldefs
  )
+}
+
+f_reactable_sub <- function(daten, coldefs = NULL) {
+  reactable(
+    daten,
+    selection = "single",
+    pagination = T,
+    defaultPageSize = 17,
+    showPageSizeOptions = TRUE,
+    filterable = TRUE,
+    highlight = TRUE,
+    bordered = TRUE,
+    striped = FALSE,
+    compact = TRUE,
+    # Styling
+    theme = reactableTheme(
+      highlightColor = "#e6f7ff", # Etwas dezenter als knallgrün, optional
+      # borderColor = "#dfe2e5",
+      rowSelectedStyle = list(backgroundColor = "#98F5FF")#
+    ),
+    rowStyle = function(index) {
+      style <- list(cursor = "pointer")  # immer aktiv
+    },
+    onClick = "select",
+    columns = coldefs
+  )
 }