Buchungen-popup funktioniert

R/accounts/accounts.R

@@ -0,0 +1,13 @@
+read_accounts <-  function(conn){
+  tbl(conn, "accounts")
+  
+} 
+
+
+get_account_choices <- function(conn) {
+  tbl(conn, "accounts") |>
+    select(id, konto) |>
+    collect() |>
+    arrange(konto) |>
+    (\(df) setNames(df$id, df$konto))()
+}