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)
}