Update snapshots

DESCRIPTION

@@ -106,7 +106,7 @@ Suggests:
     splines,
     testthat (>= 3.1.7),
     tidygraph,
-    vdiffr (>= 1.0.5)
+    vdiffr (>= 1.0.6)
 Encoding: UTF-8
 Language: en-US
 Roxygen: list(markdown = TRUE)

R/plot.dw_data_tabulate.R

@@ -11,41 +11,50 @@
 #' @param error_bar Logical. Should error bars be displayed?
 #'   If `TRUE`, confidence intervals computed using the Wilson method are shown.
 #'   See Brown et al. (2001) for details.
-#' @param ci Confidence Interval (CI) level. Default to `0.95` (⁠95%⁠).
-#' @param fill_col Color to use for category columns (default: "#87CEFA").
-#' @param color_error_bar Color to use for error bars (default: "#607B8B").
+#' @param ci Confidence Interval (CI) level. Defaults to `0.95` (`95%`).
+#' @param fill_col Color to use for category columns (default: `"#87CEFA"`).
+#' @param color_error_bar Color to use for error bars (default: `"#607B8B"`).
 #' @param ... Unused
 #'
 #' @references
-#' Brown, L. D., Cai, T. T., & DasGupta, A. (2001).
+#' Brown, L. D., Cai, T. T., & Dasgupta, A. (2001).
 #' Interval estimation for a binomial proportion.
-#' _Statistical Science, 16_(2), 101–133. \doi{10.1214/ss/1009213286}
+#' _Statistical Science_, _16_(2), 101-133. \doi{10.1214/ss/1009213286}
 #'
 #' @rdname plot.dw_data_tabulate
 #' @export
 
 plot.dw_data_tabulates <- function(x, label_values = TRUE,
                                    show_na = c("if_any", "always", "never"),
                                    na_label = "(Missing)",
-                                   error_bar = TRUE, ci = .95,
+                                   error_bar = TRUE,
+                                   ci = .95,
                                    fill_col = "#87CEFA",
                                    color_error_bar = "#607B8B",
                                    ...) {
   show_na <- match.arg(show_na, choices = c("if_any", "always", "never"))
-  if (length(x) == 1) {
+  if (length(x) == 1L) {
     plot.dw_data_tabulate(
       x[[1]],
       label_values = label_values,
-      show_na = show_na, na_label = na_label,
-      error_bar = error_bar, ci = ci,
-      fill_col = fill_col, color_error_bar = color_error_bar
+      show_na = show_na,
+      na_label = na_label,
+      error_bar = error_bar,
+      ci = ci,
+      fill_col = fill_col,
+      color_error_bar = color_error_bar
     )
   } else {
-    lapply(x, plot.dw_data_tabulate,
+    lapply(
+      x,
+      plot.dw_data_tabulate,
       label_values = label_values,
-      show_na = show_na, na_label = na_label,
-      error_bar = error_bar, ci = ci,
-      fill_col = fill_col, color_error_bar = color_error_bar
+      show_na = show_na,
+      na_label = na_label,
+      error_bar = error_bar,
+      ci = ci,
+      fill_col = fill_col,
+      color_error_bar = color_error_bar
     )
   }
 }
@@ -57,7 +66,8 @@
 plot.dw_data_tabulate <- function(x, label_values = TRUE,
                                   show_na = c("if_any", "always", "never"),
                                   na_label = "(Missing)",
-                                  error_bar = TRUE, ci = .95,
+                                  error_bar = TRUE,
+                                  ci = .95,
                                   fill_col = "#87CEFA",
                                   color_error_bar = "#607B8B",
                                   ...) {
@@ -65,7 +75,7 @@
   dat <- as.data.frame(x)
 
   if (show_na == "if_any") {
     if (any(is.na(dat$Value))) {
       show_na <- ifelse(dat[is.na(dat$Value), "N"] > 0, "always", "never")
     } else {
       show_na <- "never"
@@ -126,7 +136,7 @@
   out
 }
 
 .wilson_ci <- function(prop, total_n, ci = .95) {
   z <- stats::qnorm((1 - ci) / 2, lower.tail = FALSE)
   z2 <- z^2
   p1 <- prop + 0.5 * z2 / total_n

R/see-package.R

@@ -9,7 +9,7 @@
 #' scales for 'ggplot2'. Color scales are based on
 #' <https://materialui.co/colors>.
 #'
-#' References: Lüdecke et al. (2021) \doi{10.21105/joss.03393}.
+#' References: Luedecke et al. (2021) \doi{10.21105/joss.03393}.
 #'
 #' @docType package
 #' @aliases see see-package

inst/WORDLIST

@@ -4,17 +4,17 @@ Biserial
 Blomqvist’s
 Bluebrown
 BossekJakob
-CEFA
 CMD
 Cai
 DOI
-DasGupta
+Dasgupta
 Dom
 GGMs
 GeomViolinHalf
 Geoms
 HDI
 Hoeffding’s
+Luedecke
 MPE
 Mattan
 Modelling

tests/testthat.R

@@ -1,6 +1,6 @@
-# graphics engine changed in R 4.1, and so snapshots generated on
-# previous R version won't be compatible
-if (require("testthat") && require("vdiffr") && getRversion() > "4.1.0") {
+# graphics engine changed in these versions, and so snapshots generated on
+# previous R version won't work
+if (require("testthat") && require("vdiffr") && getRversion() > "4.1.0" && getRversion() < "4.4.0") {
   library(testthat)
   library(see)