verschiedene änderungen

R/_funktionen/f_table.R

@@ -1,5 +1,5 @@
 f_reactable <- function(daten, coldefs = NULL, selection = "single", 
-  defaultSelected = NULL, hoehe = NULL, highlight_valuta = NULL) {
+  defaultSelected = NULL, hoehe = NULL, highlight_valuta = NULL, filterable = T) {
   reactable(
     daten,
     selection = selection,
@@ -7,7 +7,8 @@ f_reactable <- function(daten, coldefs = NULL, selection = "single",
     pagination = F,
     defaultPageSize = 17,
     showPageSizeOptions = TRUE,
-    filterable = TRUE,
+    defaultSorted = list(valuta = "desc"),
+    filterable = filterable,
     highlight = TRUE,
     height = hoehe,            # <--- FIXIERT DEN HEADER und macht den Body scrollbar
     bordered = TRUE,