From c9c852e48a59bdc64a252b74a7a7484c968b954f Mon Sep 17 00:00:00 2001 From: Rich FitzJohn Date: Mon, 4 Mar 2024 08:26:02 +0000 Subject: [PATCH] Drop unused variable --- R/sample.R | 1 - 1 file changed, 1 deletion(-) diff --git a/R/sample.R b/R/sample.R index b1f131b7..2f190049 100644 --- a/R/sample.R +++ b/R/sample.R @@ -201,7 +201,6 @@ combine_chains <- function(res) { density <- unlist(lapply(res, "[[", "density")) details <- lapply(res, "[[", "details") details <- if (all(vlapply(details, is.null))) NULL else details - rng_state <- lapply(res, function(x) x$internal$rng_state) used_r_rng <- vlapply(res, function(x) x$internal$used_r_rng) if (any(used_r_rng)) {