# NOT RUN {
library(DBI)
con <- dbConnect(MonetDB.R(), "demo")
data(mtcars)
dbWriteTable(con, "mtcars", mtcars)
mpgplus42 <- mdbapply(con, "mtcars", "double", function(d) {
d$mpg + 42
})
# }
Run the code above in your browser using DataCamp Workspace