Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- p1 <- pool::dbPool(
- drv = RMySQL::MySQL(),
- host = myhost,
- port = myport,
- username = myusername,
- password = mypassword,
- dbname = mydbname1)
- t1 <- dplyr::tbl(p1, "mytable1") %>%
- dplyr::collect(n = Inf)
- p2 <- pool::dbPool(
- drv = RMySQL::MySQL(),
- host = myhost,
- port = myport,
- username = myusername,
- password = mypassword,
- dbname = mydbname2)
- t2 <- dplyr::tbl(p2, "mytable2") %>%
- dplyr::collect(n = Inf)
- p <- pool::dbPool(
- drv = RMySQL::MySQL(),
- host = myhost,
- port = myport,
- username = myusername,
- password = mypassword)
- t1 <- dplyr::tbl(select_db(p, mydbname1), "mytable1") %>%
- dplyr::collect(n = Inf)
- t2 <- dplyr::tbl(select_db(p, mydbname2), "mytable2") %>%
- dplyr::collect(n = Inf)
Add Comment
Please, Sign In to add comment