verschiedene fehler behoben

2026-03-17 17:33:47 +01:00
parent 1f903ea80e
commit 81302a8532
6 changed files with 168 additions and 137 deletions
@@ -1,20 +1,24 @@
-
-f_reactable <- function(daten, coldefs = NULL){
-  reactable(daten,
-    selection = "single",
-    bordered = TRUE,
+f_reactable <- function(daten, coldefs = NULL, selection = "single", defaultSelected = NULL) {
+  reactable(
+    daten,
+    selection = selection,
+    defaultSelected = defaultSelected, # Ermöglicht das Wiederherstellen der Auswahl
+    pagination = TRUE,
    defaultPageSize = 17,
+    showPageSizeOptions = TRUE,
    filterable = TRUE,
    highlight = TRUE,
-    striped = F,
-    theme = reactableTheme(
-      highlightColor = "#00f200",
-      borderColor = "#dfe2e5",
-      rowSelectedStyle = list(backgroundColor = "#98F5FF"),
-    ),
+    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
  )
-}
+}