# Create a database in a temporary directory
db <- create_db(tempdir(), "mydb.db")
# Assuming that we have imported some data into the database, we can vacuum it
vacuum_db(db)
# Cleanup
close_db(db)
file.remove(file.path(tempdir(), "mydb.db"))
Run the code above in your browser using DataLab