more ci fixes

vignettes/tidybayes.Rmd

@@ -38,10 +38,11 @@ if (requireNamespace("pkgdown", quietly = TRUE) && pkgdown::in_pkgdown()) {
   large_height = 5.25
 }
 
+eval_chunks = if (isTRUE(exists("params"))) params$EVAL else FALSE
 knitr::opts_chunk$set(
   fig.width = small_width,
   fig.height = small_height,
-  eval = if (isTRUE(exists("params"))) params$EVAL else FALSE
+  eval = eval_chunks
 )
 if (capabilities("cairo") && Sys.info()[['sysname']] != "Darwin") {
   knitr::opts_chunk$set(
@@ -104,7 +105,6 @@ library(ggdist)
 library(tidybayes)
 library(ggplot2)
 library(cowplot)
-library(emmeans)
 library(broom)
 library(rstan)
 library(rstanarm)
@@ -643,9 +643,9 @@ m_linear = lm(response ~ condition, data = ABC)
 
 Combining `emmeans::emmeans` with `broom::tidy`, we can generate tidy-format summaries of conditional means from the above model:
 
-```{r, eval=requireNamespace("emmeans", quietly = TRUE)}
+```{r, eval = eval_chunks && requireNamespace("emmeans", quietly = TRUE)}
 linear_results = m_linear %>% 
-  emmeans::emmeans(~ condition) %>% 
+  emmeans::emmeans(~ condition) %>%
   tidy(conf.int = TRUE) %>%
   mutate(model = "OLS")
 
@@ -733,7 +733,7 @@ m_rst = stan_glm(response ~ condition, data = ABC)
 
 We can use `emmeans::emmeans()` to get conditional means with uncertainty:
 
-```{r, eval=requireNamespace("emmeans", quietly = TRUE)}
+```{r, eval = eval_chunks && requireNamespace("emmeans", quietly = TRUE)}
 m_rst %>%
   emmeans::emmeans( ~ condition) %>%
   gather_emmeans_draws() %>%
@@ -742,7 +742,7 @@ m_rst %>%
 
 Or `emmeans::emmeans()` with `emmeans::contrast()` to do all pairwise comparisons:
 
-```{r, eval=requireNamespace("emmeans", quietly = TRUE)}
+```{r, eval = eval_chunks && requireNamespace("emmeans", quietly = TRUE)}
 m_rst %>%
   emmeans::emmeans( ~ condition) %>%
   emmeans::contrast(method = "pairwise") %>%
@@ -754,7 +754,7 @@ See the documentation for `emmeans::pairwise.emmc()` for a list of the numerous
 
 As before, we can plot the results instead of using a table:
 
-```{r fig.width = tiny_width, fig.height = tiny_height, eval=requireNamespace("emmeans", quietly = TRUE)}
+```{r fig.width = tiny_width, fig.height = tiny_height, eval = eval_chunks && requireNamespace("emmeans", quietly = TRUE)}
 m_rst %>%
   emmeans::emmeans( ~ condition) %>%
   emmeans::contrast(method = "pairwise") %>%
@@ -765,7 +765,7 @@ m_rst %>%
 
 `gather_emmeans_draws()` also supports `emm_list` objects, which contain estimates from different reference grids (see `emmeans::ref_grid()` for more information on reference grids). An additional column with the default name of `.grid` is added to indicate the reference grid for each row in the output:
 
-```{r, eval=requireNamespace("emmeans", quietly = TRUE)}
+```{r, eval = eval_chunks && requireNamespace("emmeans", quietly = TRUE)}
 m_rst %>%
   emmeans::emmeans(pairwise ~ condition) %>%
   gather_emmeans_draws() %>%