with_* methods to temporarily change user or role to test stuff?

[sckott]

Idea is to:

with_db_role(
  role = "analysts", {
  tbl(con, "passwd")
})
# OR
with_db_user(
  user = "jane", {
  tbl(con, "passwd")
})

Where the current user before the with block is called is reset as the user when the with block exits so that the current user can enter user or role contexts quickly and test things out

There is a method in withr for databases, https://withr.r-lib.org/reference/with_db_connection.html with_db_connection, so that may be part of the solution

@seankross ?

[seankross]

This sounds great!

[sckott]

great, i'll spec something out

[sckott]

@seankross check branch with

library(rls)
library(DBI)
library(RPostgres)
library(dplyr)

con <- dbConnect(Postgres())

rls_current_user(con)

dbCreateTable(con, "cars", mtcars)
rows_append(
  tbl(con, "cars"),
  copy_inline(con, mtcars),
  in_place = TRUE
)

dbExecute(con, "CREATE ROLE analysts")

# should fail because role analysts doesn't have access to cars yet
with_db_user(
 con = con,
 user = "analysts",
 code = dbGetQuery(con, "select * from cars")
)

# back to current user
rls_current_user(con)