get_contact_choices <- function(conn) {
  tbl(conn, "contacts") |>
    select(id, display_name) |>
    collect() |>
    arrange(display_name) |>
    (\(df) setNames(df$id, df$display_name))()
}