11 lines
274 B
R
Executable File
11 lines
274 B
R
Executable File
|
|
get_contact_choices <- function(conn) {
|
|
contacts <- tbl(conn, "contacts") |>
|
|
select(id, display_name) |>
|
|
collect() |>
|
|
arrange(display_name)
|
|
|
|
choices <- setNames(as.character(contacts$id), contacts$display_name)
|
|
return(c("Kein Kontakt" = 0, choices))
|
|
}
|