Merge branch 'master' into new-pkgdown-setup

Author: jgabry

R/helpers-ppc.R

@@ -101,7 +101,7 @@ validate_predictions <- function(predictions, n_obs = NULL) {
 #' Validate PIT
 #'
 #' Checks that `pit` is numeric, doesn't have any NAs, and is either a vector,
-#' or a 1-D array with values in [0,1].
+#' or a 1-D array with values in `[0,1]`.
 #'
 #' @param pit The 'pit' object from the user.
 #' @return Either throws an error or returns a numeric vector.
@@ -521,8 +521,8 @@ get_interpolation_values <- function(N, K, L, prob) {
 #' within the bounds until z1 and takes the value in x1 at z1.
 #' @param x1 Vector of scaled ECDF values at the left end of the interval, z1.
 #' @param x2 Vector of scaled ECDF values at the right end of the interval, z2.
-#' @param z1 Left evaluation point in [0,1]
-#' @param z2 Right evaluation point in [0,1] with z2 > z1.
+#' @param z1 Left evaluation point in `[0,1]`
+#' @param z2 Right evaluation point in `[0,1]` with z2 > z1.
 #' @param N Total number of values in the sample.
 #' @return A vector containing the probability to transitioning from the values
 #' in x1 to each of the values in x2 weighted by the probabilities in p_int.

R/zzz.R

@@ -10,3 +10,6 @@
                           "\nUse update.packages('ggplot2') to update.")
   }
 }
+.onLoad <- function(libname, pkgname) {
+  bayesplot_theme_set()
+}

tests/testthat/test-aesthetics.R

@@ -210,6 +210,18 @@ test_that("ggplot2::theme_set overrides bayesplot theme", {
   expect_identical(bayesplot_theme_get(), minimal)
 })
 
+test_that(".onLoad keeps ggplot theme and resets bayesplot theme", {
+  old <- ggplot2::theme_set(ggplot2::theme_minimal())
+  before <- ggplot2::theme_get()
+  bayesplot:::.onLoad()
+
+  expect_identical(bayesplot_theme_get(), default)
+  expect_equal(.bayesplot_theme_env$current, default)
+  expect_equal(ggplot2::theme_get(), before)
+  expect_equal(.bayesplot_theme_env$gg_current, before)
+  ggplot2::theme_set(old)
+})
+
 bayesplot_theme_set(bayesplot::theme_default())
 color_scheme_set()