Update run_analysisJSON.R

Update function