Check test failures on oldrel-Windows

DESCRIPTION

@@ -1,8 +1,8 @@
 Type: Package
 Package: see
 Title: Model Visualisation Toolbox for 'easystats' and 'ggplot2'
-Version: 0.8.4.7
-Authors@R: 
+Version: 0.8.4.8
+Authors@R:
     c(person(given = "Daniel",
              family = "Lüdecke",
              role = c("aut", "ctb"),
@@ -52,7 +52,7 @@ Maintainer: Indrajeet Patil <[email protected]>
 Description: Provides plotting utilities supporting packages in the 'easystats'
     ecosystem (<https://github.com/easystats/easystats>) and some extra themes,
     geoms, and scales for 'ggplot2'. Color scales are based on
-    <https://materialui.co/>. 
+    <https://materialui.co/>.
     References: Lüdecke et al. (2021) <doi:10.21105/joss.03393>.
 License: MIT + file LICENSE
 URL: https://easystats.github.io/see/

NAMESPACE

@@ -23,8 +23,8 @@ S3method(data_plot,performance_pp_check)
 S3method(data_plot,point_estimate)
 S3method(data_plot,rope)
 S3method(data_plot,see_compare_parameters)
-S3method(plot,dw_data_tabulate)
-S3method(plot,dw_data_tabulates)
+S3method(plot,datawizard_table)
+S3method(plot,datawizard_tables)
 S3method(plot,see_bayesfactor_models)
 S3method(plot,see_bayesfactor_parameters)
 S3method(plot,see_bayesfactor_savagedickey)

NEWS.md

@@ -11,6 +11,10 @@
 
 * Gets rid of warnings due to API changes in the `{datawizard}` package.
 
+## Bug fixes
+
+* Fixed CRAN test failures.
+
 # see 0.8.4
 
 ## Minor Changes
@@ -626,4 +630,3 @@
 ## Bug fixes
 
 * Fixed issues with color codes in the flat-ui palette.
-

R/plot.dw_data_tabulate.R

@@ -21,10 +21,10 @@
 #' Interval estimation for a binomial proportion.
 #' _Statistical Science_, _16_(2), 101-133. \doi{10.1214/ss/1009213286}
 #'
-#' @rdname plot.dw_data_tabulate
+#' @rdname plot.datawizard_table
 #' @export
 
-plot.dw_data_tabulates <- function(x, label_values = TRUE,
+plot.datawizard_tables <- function(x, label_values = TRUE,
                                    show_na = c("if_any", "always", "never"),
                                    na_label = "(Missing)",
                                    error_bar = TRUE,
@@ -34,7 +34,7 @@ plot.dw_data_tabulates <- function(x, label_values = TRUE,
                                    ...) {
   show_na <- match.arg(show_na, choices = c("if_any", "always", "never"))
   if (length(x) == 1L) {
-    plot.dw_data_tabulate(
+    plot.datawizard_table(
       x[[1]],
       label_values = label_values,
       show_na = show_na,
@@ -47,7 +47,7 @@ plot.dw_data_tabulates <- function(x, label_values = TRUE,
   } else {
     lapply(
       x,
-      plot.dw_data_tabulate,
+      plot.datawizard_table,
       label_values = label_values,
       show_na = show_na,
       na_label = na_label,
@@ -59,11 +59,11 @@ plot.dw_data_tabulates <- function(x, label_values = TRUE,
   }
 }
 
-#' @rdname plot.dw_data_tabulate
+#' @rdname plot.datawizard_table
 #'
 #' @export
 
-plot.dw_data_tabulate <- function(x, label_values = TRUE,
+plot.datawizard_table <- function(x, label_values = TRUE,
                                   show_na = c("if_any", "always", "never"),
                                   na_label = "(Missing)",
                                   error_bar = TRUE,

tests/testthat/test-plot.dw_data_tabulate.R

@@ -1,9 +1,9 @@
-test_that("`plot.dw_data_tabulate()` works with single table", {
+test_that("`plot.datawizard_table()` works with single table", {
   x <- datawizard::data_tabulate(mtcars, select = "cyl")
   expect_s3_class(plot(x), "gg")
 })
 
-test_that("`plot.dw_data_tabulate()` works with multiple tables", {
+test_that("`plot.datawizard_table()` works with multiple tables", {
   x <- datawizard::data_tabulate(mtcars, select = c("cyl", "carb", "am"))
   expect_true(is.list(plot(x)))
 })