17 lines
312 B
R
17 lines
312 B
R
read_accounts <- function(conn){
|
|
tbl(conn, "accounts")
|
|
|
|
}
|
|
|
|
|
|
get_account_choices <- function(conn) {
|
|
choices <- tbl(conn, "accounts") |>
|
|
select(id, account_name) |>
|
|
collect() |>
|
|
arrange(account_name) |>
|
|
(\(df) setNames(df$id, df$account_name))()
|
|
return(c("Kein Konto" = 0, choices))
|
|
}
|
|
|
|
|