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))()
}