Postgresql Create Replace Function In R