fixes

R/mixplot.R

@@ -92,7 +92,7 @@ plot.mix <- function(x, prob=0.99, fun=dmix, log=FALSE, comp=TRUE, size=1.25, ..
 
     num_comp <- ncol(x)
     pl <- ggplot(data.frame(x=interval), aes(x=x)) +
-        stat_function(geom=plot_geom, fun = plot_fun, args=list(mix=x, log=log), n=n_fun, size=size) +
+        stat_function(geom=plot_geom, fun = plot_fun, args=list(mix=x, log=log), n=n_fun, linewidth=size) +
         bayesplot::bayesplot_theme_get()
 
     if(funStr=="dmix") {

tests/testthat/test-gMAP.R

@@ -104,6 +104,7 @@ test_that("SBC data was up to date at package creation.", {
 set.seed(92575)
 rate <- round(-log(0.05)/2, 1)
 test_that("gMAP matches RStanArm binomial family", {
+    skip("RStanArm has issues loading since 2024-01-02 on CI/CD systems.")
               skip_on_cran()
               best_run <- gMAP(cbind(r, n-r) ~ 1 | study,
                                data=AS,

tools/make-ds.R

@@ -43,7 +43,7 @@ make_internal_ds <- function() {
     calibration_meta["MD5"]  <- vals["MD5"]
 
     pkg_create_date  <- Sys.time()
-    pkg_sha <- "c1903b3"
+    pkg_sha <- "5d59130"
 
     if (gsub("\\$", "", pkg_sha) == "Format:%h") {
         pkg_sha <- system("git rev-parse --short HEAD", intern=TRUE)