mrs_rdb_file <- tempfile("mrs", fileext = ".rdb")
mrs_sqlite_file <- tempfile("mrs", fileext = ".sqlite")
mrs_sqlite_connect <- function() {
DBI::dbConnect(RSQLite::SQLite(),
dbname = mrs_sqlite_file)
}
mrs_db <- mrs_db |>
deploy(
name = "mrs",
connect = mrs_sqlite_connect,
file = mrs_rdb_file
)
Run the code above in your browser using DataLab