# NOT RUN {
db_path <- system.file("extdata", "example_dataBase.db", package = "eatDB")
keys <- dbKeys(db_path)
## primary key structure of the database
keys$pkList
## foreign key structure of the database
keys$fkList
# }
Run the code above in your browser using DataLab