library(foreach)
library(RSQLite)
library(doParallel)
library(parallel)
con <- dbConnect(RSQLite::SQLite(), "/home/pi/gps.sqlite",flags=SQLITE_RO)
dbDisconnect(con)