Awk Index Function In R