Guest User

Untitled

a guest
May 24th, 2018
118
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.76 KB | None | 0 0
  1. p1 <- pool::dbPool(
  2. drv = RMySQL::MySQL(),
  3. host = myhost,
  4. port = myport,
  5. username = myusername,
  6. password = mypassword,
  7. dbname = mydbname1)
  8. t1 <- dplyr::tbl(p1, "mytable1") %>%
  9. dplyr::collect(n = Inf)
  10. p2 <- pool::dbPool(
  11. drv = RMySQL::MySQL(),
  12. host = myhost,
  13. port = myport,
  14. username = myusername,
  15. password = mypassword,
  16. dbname = mydbname2)
  17. t2 <- dplyr::tbl(p2, "mytable2") %>%
  18. dplyr::collect(n = Inf)
  19.  
  20. p <- pool::dbPool(
  21. drv = RMySQL::MySQL(),
  22. host = myhost,
  23. port = myport,
  24. username = myusername,
  25. password = mypassword)
  26. t1 <- dplyr::tbl(select_db(p, mydbname1), "mytable1") %>%
  27. dplyr::collect(n = Inf)
  28. t2 <- dplyr::tbl(select_db(p, mydbname2), "mytable2") %>%
  29. dplyr::collect(n = Inf)
Add Comment
Please, Sign In to add comment