if (requireNamespace("DBI", quietly = TRUE) && requireNamespace("RSQLite", quietly = TRUE)) {
my_db <- DBI::dbConnect(RSQLite::SQLite(), ":memory:")
DBI::dbWriteTable(my_db,
"d",
data.frame(x=1:3, y=NA))
print(key_inspector_all_cols(my_db, "d"))
DBI::dbDisconnect(my_db)
}
Run the code above in your browser using DataLab