con <- dbConnect(MySQL(),
dbname = "rs-dbi",
client.flag=CLIENT\_MULTI\_STATEMENTS)
tmp <- sprintf("select * from emp where lname =sql <- dbEscapeString(con, tmp)
dbGetQuery(con, sql)
Run the code above in your browser using DataLab