Reduce In Array Javascript Join Function In R