Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- library(tidyverse)
- library(RMySQL)
- library(DBI)
- library(dbplyr)
- db_insert_table <- function(db_name, table_name, df){
- db_user <- Sys.getenv("server_user")
- db_password <- Sys.getenv("server_pass")
- db_host <- "XXX"
- db_dbname <- db_name
- mydb <-
- dbConnect(
- MySQL(),
- user = db_user,
- password = db_password,
- dbname = db_dbname,
- host = db_host,
- port = 3306
- )
- on.exit(dbDisconnect(mydb))
- db_insert_into(mydb, table_name, df)
- }
Add Comment
Please, Sign In to add comment