# Create a database
db <- create_db(tempdir(), "mydb.db")
# Add some studies
DBI::dbExecute(db, "INSERT INTO Study VALUES('study1', 'data_format1')")
# Get the studies
get_studies(db)
# Cleanup
close_db(db)
file.remove(file.path(tempdir(), "mydb.db"))
Run the code above in your browser using DataLab