rsqlite.r

library(RSQLite)
library(dplyr)

setwd("C:\\Users\\klahrich\\Documents\\R\\retention_pk\\")

db <- dbConnect(SQLite(), dbname="Test.sqlite")
my_db <- src_sqlite("Test.sqlite")

dbWriteTable(conn=db, name="Training", value="training.csv", row.names=FALSE, header=TRUE)

training <- tbl(my_db, sql("SELECT * from Training"))

training %>% count(METHOD_OF_PAYMENT_CD)