library(sqldf)
library(RSQLite)
library(rlang)
  drv <- "SQL Server"
 drv <- dbDriver("SQLite")
con <- dbConnect(drv, server="xxx" user="ram", password="xxx", dbname="yyy")
rs <- dbSendQuery(con, "select * from tablename")