R json

removed nasty output from apply function