read_accounts <-  function(conn){
  tbl(conn, "accounts")
  
} 


get_account_choices <- function(conn) {
  tbl(conn, "accounts") |>
    select(id, account_name) |>
    collect() |>
    arrange(account_name) |>
    (\(df) setNames(df$id, df$account_name))()
}