fixed error in extract_shiny_stan_object.R

should work now even if only 1 chain