Json Array Inside Array Javascript Length Function In R