reviewed copilot suggestions

Author: utkarshpawade

NEWS.md

@@ -1,6 +1,6 @@
 # bayesplot (development version)
 
-* Added unit test for `.psis_subset()` .
+* Added unit test for `.psis_subset()`.
 * Fixed `is_chain_list()` to correctly reject empty lists instead of silently returning `TRUE`.
 * Added unit tests for `mcmc_areas_ridges_data()`, `mcmc_parcoord_data()`, and `mcmc_trace_data()`.
 * Added unit tests for `ppc_error_data()` and `ppc_loo_pit_data()` covering output structure, argument handling, and edge cases.

tests/testthat/test-ppc-loo.R

@@ -217,14 +217,13 @@ test_that(".psis_subset output structure matches valid psis object", {
   skip_if_not_installed("loo")
 
   subset_idx <- 1:10
+  orig_dims <- dim(psis1)
   result <- .psis_subset(psis1, subset_idx)
 
   # class preserved
-
   expect_s3_class(result, "psis")
 
   # log_weights columns match subset length, rows unchanged
-  orig_dims <- dim(psis1)
   expect_equal(ncol(result$log_weights), length(subset_idx))
   expect_equal(nrow(result$log_weights), orig_dims[1])