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