Sqlite Get Function In R