paramaterized query using ldply.R

paramed_query.R

library(RODBC)
library(RODBCext)
dbconn <- odbcConnect(dsn = "dbname", uid = "me", pwd = "password")
query <- "select * from table where blah = 'blahblahblah' and blah2 = ?"

results <- function(x){
    sqlExecute(dbconn, query, x)
    sqlGetResults(dbconn)
}

output <- plyr::ldply(dataframe$thingy, results, .progress = 'time')

Rough dplyr equiv:

df <- data.frame(blah = "blahblahblah", blah2 = dataframe$thingy)
src() %>% tbl(tbl) %>% semi_join(df, copy = TRUE)