if (mysqlHasDefault()) {
con <- dbConnect(RMySQL::MySQL(), dbname = "test")
dbWriteTable(con, "t1", datasets::USArrests, overwrite = TRUE)
rs <- dbSendQuery(con, "SELECT * FROM t1 WHERE UrbanPop >= 80")
dbGetStatement(rs)
dbHasCompleted(rs)
dbGetInfo(rs)
dbColumnInfo(rs)
dbClearResult(rs)
dbRemoveTable(con, "t1")
dbDisconnect(con)
}
Run the code above in your browser using DataLab