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