R/Test Skript final.R

In ChrisNice89/rdao: Data Access Object (DAO) framework for R

library(rdao)
f<-connectionFactory()
b<-f$dbFile("/Users/cnitz/Dev/R/rdao/db files external/test.db")
cnn<-b$build()

result<-cnn$createQuery(sql = "Select * FROM diamonds LIMIT 10")$fetch()
result$countRows()
result$getColor()
result
m<-result$toMatrix()
d<-m(1,1:2)
d
result$setColor("xxx")
result$getColor()
result$update()

m<-result$toMatrix()

result$getRecords()
result$setCarat(0.66)
result$row(1)$setCarat(0.99)
m(1:2,1:2)
d<-m(1,1:2)
colnames(d)
d[1,]


d<-m(1,1:2)
colnames(d)
d[1,]

result$delete(c(1,2))
result$countRows()
result$getRecords()


while (result$read()){

  i<-result$getRecords()
  print(i)
}