# NOT RUN {
if (requireNamespace("DBI", quietly = TRUE) && requireNamespace("RSQLite", quietly = TRUE)) {
my_db <- DBI::dbConnect(RSQLite::SQLite(), ":memory:")
DBI::dbExecute(my_db, "
CREATE TABLE orgtable (
eid TEXT,
date INTEGER,
dept TEXT,
location TEXT,
PRIMARY KEY (eid, date)
)
")
print(key_inspector_sqlite(my_db, "orgtable"))
DBI::dbDisconnect(my_db)
}
# }
Run the code above in your browser using DataLab