Sql Function In R