# create a MySQL instance and create one connection.
> m <- dbManager("MySQL")
> m
MySQLManager id = (7269)
# open the connection using user, passsword, etc., as
# specified in the file \file{\$HOME/.my.cnf}
> con <- dbConnect(m)
# Let's look at the status of the manager
> describe(m)
MySQLManager id = (7269)
Max connections: 16
Conn. processed: 1
Default records per fetch: 500
# Run an SQL statement by creating first a resultSet object
> rs <- dbExecStatement(con,
statement = "SELECT w.laser_id, w.wavelength, p.cut_off
FROM WL w, PURGE P
WHERE w.laser_id = p.laser_id
SORT BY w.laser_id")
> rs
MySQLResultSet id = (12629,1,3)
# we now fetch records from the restulSet into a data.frame
> data <- fetch(rs, n = -1) # extract all rows
> dim(data)
[1] 1779 18
Run the code above in your browser using DataLab