Sql Function Return Multiple Values In R