library(RMySQL) conn <- dbConnect( MySQL(), user = dbuser, password = dbpass, dbname = dbname, host = dbhost, port = dbport ) query_frames <- " SELECT f.coins, CAST((f.elapsed_time / 1000) AS INT) FROM game g LEFT JOIN frame f ON (f.game_id = g.id) WHERE ( f.id = ( SELECT id FROM frame WHERE game_id = g.id ORDER BY elapsed_time DESC LIMIT 1 ) ) GROUP BY g.id; "