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