# NOT RUN {
if (requireNamespace("DBI", quietly = TRUE) && requireNamespace("RSQLite", quietly = TRUE)) {
my_db <- DBI::dbConnect(RSQLite::SQLite(), ":memory:")
ex <- example_employee_date(my_db)
print(describe_tables(my_db, ex$tableName,
keyInspector = key_inspector_sqlite))
DBI::dbDisconnect(my_db)
}
# }
Run the code above in your browser using DataCamp Workspace