if (FALSE) { # requireNamespace("RSQLite", quietly = TRUE)
conn <- get_connection()
mt <- dplyr::copy_to(conn, mtcars)
id_mt <- id(mt)
defer_db_cleanup(mt)
DBI::dbExistsTable(conn, id_mt) # TRUE
withr::deferred_run()
DBI::dbExistsTable(conn, id_mt) # FALSE
close_connection(conn)
}
Run the code above in your browser using DataLab