10 lines
269 B
R
10 lines
269 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)
|
|
return(c("Kein Projekt" = 0, choices))
|
|
}
|