umsatzliste verbessert

R/contacts/contacts.R

@@ -1,8 +1,10 @@
 
 get_contact_choices <- function(conn) {
-  tbl(conn, "contacts") |>
+  contacts <- tbl(conn, "contacts") |>
     select(id, display_name) |>
     collect() |>
-    arrange(display_name) |>
-    (\(df) setNames(df$id, df$display_name))()
+    arrange(display_name) 
+  
+  choices <- setNames(as.character(contacts$id), contacts$display_name)
+  return(c("Kein Kontakt" = 0, choices))
 }