diff options
author | Ken Kellner <ken@kenkellner.com> | 2023-10-21 16:51:09 -0400 |
---|---|---|
committer | Ken Kellner <ken@kenkellner.com> | 2023-10-21 16:51:09 -0400 |
commit | 79ea4216c321ee9d6c2bde3e91c5dfc89edd916d (patch) | |
tree | 7beda285e2d146f1ea60d2e99cb726339aad6ff3 | |
parent | 6da27bb0a795df80742857e28672e60e5c3c9a4c (diff) |
Don't drop output dimensions when only one parameter saved in parallel
-rw-r--r-- | R/runparallel.R | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/R/runparallel.R b/R/runparallel.R index 967615d..6ee9985 100644 --- a/R/runparallel.R +++ b/R/runparallel.R @@ -63,7 +63,7 @@ out$samples <- as.mcmc.list(samples) # Remove columns with all NA try({ all_na <- apply(as.matrix(out$samples),2, function(x) all(is.na(x))) - out$samples <- out$samples[,!all_na] + out$samples <- out$samples[,!all_na,drop=FALSE] }) out$model <- model out$total.adapt <- total.adapt |