powered by
getRowCount(object)
dbConnect
getDatabases
m <- MySQL() con <- dbConnect(m, user = "nobody", dbname = "test") rs <- dbExecStatement(con, "SHOW TABLES") getRowCount(rs) fetch(rs, n = -1) getRowCount(rs) close(rs) close(con)
Run the code above in your browser using DataLab