Database_in_R

db_insert_table.R

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)

}