if (require("RSQLite")) {
con <- dbConnect(RSQLite::SQLite(), ":memory:")
dbWriteTable(con, "mtcars", mtcars)
dbGetQuery(con, "SELECT * FROM mtcars")
dbBegin(con)
dbGetQuery(con, "DELETE FROM mtcars WHERE cyl == 4")
dbRollback(con)
dbDisconnect(con)
}
Run the code above in your browser using DataCamp Workspace