library(DBI)
library(RMySQL)
conn <- dbConnect(RMySQL::MySQL(), "wallaby.terry.uga.edu", dbname="ClassicModels", user="student", password="student")
t <- dbGetQuery(conn, 'SELECT productName, orderNumber FROM Products JOIN OrderDetails ON Products.productCode = OrderDetails.productCode;')