sqldf random filtering

sqldf.ran.split.r

library(sqldf)

# there is a default dataset called iris that is always loaded into the R scope
# let's say I want to break it into two randomly using sqldf

# assign id's to the rows
my.iris <- iris
my.iris$id <- 1:nrow(my.iris)
ran.split <- data.frame(rs = sample(1:max(my.iris$id), floor(max(my.iris$id) / 2), replace=F))
sqldf("select * from `my.iris` as x inner join `ran.split` as y on x.id = y.rs")