anzeige der neuen DS hinzugefügt

R/_funktionen/f_table.R

@@ -16,7 +16,7 @@ f_reactable <- function(daten, coldefs = NULL, selection = "single", defaultSele
     theme = reactableTheme(
       highlightColor = "#e6f7ff", # Etwas dezenter als knallgrün, optional
       # borderColor = "#dfe2e5",
-      rowSelectedStyle = list(backgroundColor = "#98F5FF")
+      rowSelectedStyle = list(backgroundColor = "#98F5FF")#
     ),
     rowStyle = list(cursor = "pointer"),
     onClick = "select",

R/_funktionen/scroll_to_Row.R

@@ -0,0 +1,19 @@
+##
+## Datum    : 2026-03-19_14-26 
+## Name     : Christian Oswald
+## Datei    : scroll_to_Row.R
+## Projekt  : gemfin-shiny
+## Kommentar: Springt zur gewünschten Reactable Zeile
+##
+
+scroll_to_row <- function(table_id, row_idx, delay_ms = 200) {
+  shinyjs::delay(delay_ms, {
+    runjs(sprintf("
+      const rows = document.querySelectorAll('#%s .rt-tr-group');
+      const idx = %d - 1;
+      if (rows[idx]) {
+        rows[idx].scrollIntoView({behavior: 'smooth', block: 'center'});
+      }
+    ", table_id, row_idx))
+  })
+}