9 lines
250 B
R
9 lines
250 B
R
get_project_choices <- function(conn) {
|
|
projekte <- tbl(conn, "projects") |>
|
|
select(id, projektname) |>
|
|
collect() |>
|
|
arrange(projektname)
|
|
|
|
choices <- setNames(as.character(projekte$id), projekte$projektname)
|
|
c("-" = "", choices)
|
|
} |