# NOT RUN {
dm_from_src_demo <- function() {
if (!rlang::is_installed("DBI")) {
message("Install the DBI package to run this example.")
}
con <- DBI::dbConnect(
RMariaDB::MariaDB(),
username = "guest",
password = "relational",
dbname = "Financial_ijs",
host = "relational.fit.cvut.cz"
)
on.exit(DBI::dbDisconnect(con))
dm_from_src(con)
}
# }
# NOT RUN {
dm_from_src_demo()
# }
Run the code above in your browser using DataLab