ora <- Oracle()
con <- dbConnect(ora)
rs <- dbExecStatement(con,
"delete * from PURGE as p where p.wavelength<0.03")
if(rowsAffected(rs) > 250){
warning("dubious deletion -- rolling back transaction")
rollback(con)
}
Run the code above in your browser using DataLab