Conneting to Databases

# load Package
library(DBI)

con <- dbConnect(drv = RMySQL::MySQL(),
                 host = "  ",
                 port =  ,
                 user = " ",
                 password = " ",
                 dbname = " "
                )

# this query is a random sample of 50,000
data <- dbGetQuery(con,"
select * from schema.table 
")
colnames(data)

on.exit(dbDisconnect(con))

write.csv(data, "data.csv")