CRAN RC 0.11.1 (#852)

* import standardize_names from insight closes #851 * Update NEWS.md
IndrajeetPatil · Apr 14, 2023 · d679ab8 · d679ab8
1 parent fe83ae6
commit d679ab8
Show file tree

Hide file tree

Showing 13 changed files with 29 additions and 29 deletions.
diff --git a/CITATION.cff b/CITATION.cff
@@ -8,7 +8,7 @@ message: 'To cite package "ggstatsplot" in publications use:'
 type: software
 license: GPL-3.0-only
 title: 'ggstatsplot: ''ggplot2'' Based Plots with Statistical Details'
-version: 0.11.0.9000
+version: 0.11.1
 doi: 10.21105/joss.03167
 abstract: 'Extension of ''ggplot2'', ''ggstatsplot'' creates graphics with details
   from statistical tests included in the plots themselves. It provides an easier syntax

diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Type: Package
 Package: ggstatsplot
 Title: 'ggplot2' Based Plots with Statistical Details
-Version: 0.11.0.9000
+Version: 0.11.1
 Authors@R: 
     c(person(given = "Indrajeet",
              family = "Patil",

diff --git a/NAMESPACE b/NAMESPACE
@@ -26,18 +26,13 @@ export(pairwise_comparisons)
 export(theme_ggstatsplot)
 import(dplyr)
 import(ggplot2)
+import(insight)
 import(rlang)
 import(statsExpressions)
 importFrom(correlation,correlation)
 importFrom(glue,glue)
-importFrom(insight,check_if_installed)
-importFrom(insight,find_statistic)
-importFrom(insight,format_value)
-importFrom(insight,is_model)
 importFrom(paletteer,scale_color_paletteer_d)
 importFrom(paletteer,scale_fill_paletteer_d)
-importFrom(parameters,model_parameters)
-importFrom(parameters,standardize_names)
 importFrom(patchwork,plot_annotation)
 importFrom(patchwork,wrap_plots)
 importFrom(purrr,map)

diff --git a/NEWS.md b/NEWS.md
@@ -1,4 +1,4 @@
-# ggstatsplot 0.11.0.9000
+# ggstatsplot 0.11.1
 
 N.B. All statistical analysis in `{ggstatsplot}` is carried out in
 `{statsExpressions}`. Thus, to see changes related to statistical expressions,
@@ -11,6 +11,10 @@ read the `NEWS` for that package:
   has been removed. It was too crude to be useful or reliable, and users should
   instead prefer more informative methods (e.g. `performance::check_outliers()`).
 
+## MINOR CHANGES
+
+- Fix failures due to changes in `{parameters}`.
+
 # ggstatsplot 0.11.0
 
 ## BREAKING CHANGES

diff --git a/R/ggcorrmat.R b/R/ggcorrmat.R
@@ -107,7 +107,7 @@ ggcorrmat <- function(data,
 
   # plot ------------------------------------------
 
-  check_if_installed("ggcorrplot")
+  insight::check_if_installed("ggcorrplot")
 
   # legend title with information about correlation type and sample size
   if (!anyNA(data) || partial) {

diff --git a/R/ggpiestats_ggbarstats_helpers.R b/R/ggpiestats_ggbarstats_helpers.R
@@ -70,7 +70,7 @@ onesample_data <- function(data, x, y, k = 2L, ...) {
 
   # if not null, return tidy output, otherwise return NAs
   if (!is.null(result)) {
-    as_tibble(parameters::standardize_names(result, style = "broom"))
+    as_tibble(insight::standardize_names(result, style = "broom"))
   } else {
     tibble(
       statistic = NA_real_, p.value = NA_real_, df = NA_real_,

diff --git a/R/ggscatterstats.R b/R/ggscatterstats.R
@@ -185,7 +185,7 @@ ggscatterstats <- function(data,
   # marginal  ---------------------------------------------
 
   if (isTRUE(marginal)) {
-    check_if_installed("ggside", minimum_version = "0.2.1")
+    insight::check_if_installed("ggside", minimum_version = "0.2.1")
 
     # adding marginal distributions
     plotScatter <- plotScatter +

diff --git a/R/ggstatsplot-package.R b/R/ggstatsplot-package.R
@@ -67,10 +67,9 @@
 #' @import dplyr
 #' @import ggplot2
 #' @import statsExpressions
+#' @import insight
 #'
 #' @importFrom glue glue
-#' @importFrom insight is_model find_statistic format_value check_if_installed
-#' @importFrom parameters model_parameters standardize_names
 #' @importFrom paletteer scale_color_paletteer_d scale_fill_paletteer_d
 #' @importFrom purrr pmap map
 #' @importFrom correlation correlation

diff --git a/R/ggwithinstats.R b/R/ggwithinstats.R
@@ -124,7 +124,7 @@ ggwithinstats <- function(data,
   # test to run; depends on the no. of levels of the independent variable
   test <- ifelse(nlevels(data %>% pull({{ x }})) < 3L, "t", "anova")
 
-  if (results.subtitle && check_if_installed("afex")) {
+  if (results.subtitle && insight::check_if_installed("afex")) {
     # relevant arguments for statistical tests
     .f.args <- list(
       data         = data,

diff --git a/codemeta.json b/codemeta.json
@@ -8,7 +8,7 @@
   "codeRepository": "https://github.com/IndrajeetPatil/ggstatsplot",
   "issueTracker": "https://github.com/IndrajeetPatil/ggstatsplot/issues",
   "license": "https://spdx.org/licenses/GPL-3.0",
-  "version": "0.11.0.9000",
+  "version": "0.11.1",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",
@@ -513,7 +513,7 @@
     },
     "SystemRequirements": null
   },
-  "fileSize": "9259.422KB",
+  "fileSize": "9259.406KB",
   "citation": [
     {
       "@type": "ScholarlyArticle",

diff --git a/cran-comments.md b/cran-comments.md
@@ -2,11 +2,11 @@
 
 0 errors | 0 warnings | 0 note
 
-- Maintenance release to catch up with `{ggplot2}` and `{easystats}` updates.
+- Fix breaking change caused by `{parameters}` updates.
 
 ## revdepcheck results
 
-We checked 2 reverse dependencies, comparing R CMD check results across CRAN and
+We checked 3 reverse dependencies, comparing R CMD check results across CRAN and
 dev versions of this package.
 
  * We saw 0 new problems

diff --git a/vignettes/web_only/faq.Rmd b/vignettes/web_only/faq.Rmd
@@ -332,10 +332,12 @@ mtcars$cyl <- as.factor(mtcars$cyl)
 p <- ggbetweenstats(mtcars, cyl, wt, pairwise.comparisons = FALSE)
 
 # using `pairwise_comparisons()` function to create a data frame with results
-(df <- pairwise_comparisons(mtcars, cyl, wt) %>%
+df <- pairwise_comparisons(mtcars, cyl, wt) %>%
   dplyr::mutate(groups = purrr::pmap(.l = list(group1, group2), .f = c)) %>%
   dplyr::arrange(group1) %>%
-  dplyr::mutate(asterisk_label = c("**", "***", "**")))
+  dplyr::mutate(asterisk_label = c("**", "***", "**"))
+
+df
 
 # adding pairwise comparisons using `{ggsignif}` package
 p +
@@ -444,12 +446,11 @@ grouped_ggbetweenstats(
   grouping.var = am,
   results.subtitle = FALSE,
   pairwise.comparisons = FALSE,
-  ggplot.component =
   # modify further with `{ggplot2}` functions
-    list(
-      scale_color_manual(values = paletteer::paletteer_c("viridis::viridis", 3)),
-      theme(axis.text.x = element_text(angle = 90))
-    )
+  ggplot.component = list(
+    scale_color_manual(values = paletteer::paletteer_c("viridis::viridis", 3)),
+    theme(axis.text.x = element_text(angle = 90))
+  )
 )
 ```
 

diff --git a/vignettes/web_only/pairwise.Rmd b/vignettes/web_only/pairwise.Rmd
@@ -100,11 +100,12 @@ p <- ggplot(mtcars, aes(cyl, wt)) +
   geom_boxplot()
 
 ## using `pairwise_comparisons()` package to create a data frame with results
-
-(df <-
+df <-
   pairwise_comparisons(mtcars, cyl, wt) %>%
   dplyr::mutate(groups = purrr::pmap(.l = list(group1, group2), .f = c)) %>%
-  dplyr::arrange(group1))
+  dplyr::arrange(group1)
+
+df
 
 ## using `geom_signif` to display results
 ## (note that you can choose not to display all comparisons)