# NOT RUN {
if (requireNamespace("DBI", quietly = TRUE) && requireNamespace("RSQLite", quietly = TRUE)) {
my_db <- DBI::dbConnect(RSQLite::SQLite(), ":memory:")
d <- data.frame(id=1:3, weight= c(200, 140, 98))
DBI::dbWriteTable(my_db,"d1", d)
DBI::dbWriteTable(my_db,"d2", d)
tDesc <- describe_tables(my_db, c("d1", "d2"))
tDesc$keys[[1]] <- list(PrimaryKey= 'id')
tDesc$keys[[2]] <- list(PrimaryKey= 'id')
print(build_join_plan(tDesc))
DBI::dbDisconnect(my_db)
}
# }
Run the code above in your browser using DataCamp Workspace