14 lines
239 B
R
14 lines
239 B
R
read_accounts <- function(conn){
|
|
tbl(conn, "accounts")
|
|
|
|
}
|
|
|
|
|
|
get_account_choices <- function(conn) {
|
|
tbl(conn, "accounts") |>
|
|
select(id, konto) |>
|
|
collect() |>
|
|
arrange(konto) |>
|
|
(\(df) setNames(df$id, df$konto))()
|
|
}
|