verschiedene fehler behoben

R/_funktionen/f_max_id.R

@@ -8,7 +8,7 @@
 
 ## * Initialisierung ----
 
-max_id <- function(conn, tablle){
+max_id <- function(conn, tabelle){
   paste0("SELECT max(id) FROM ", tabelle) %>%
     dbxSelect(conn,.) %>% 
     pull

R/_funktionen/f_table.R

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