Sqlite Create Function In R