remove dw methods

Author: strengejacke

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: parameters
 Title: Processing of Model Parameters
-Version: 0.24.2.11
+Version: 0.24.2.12
 Authors@R:
     c(person(given = "Daniel",
              family = "Lüdecke",

NAMESPACE

@@ -123,7 +123,6 @@ S3method(convert_efa_to_cfa,parameters_pca)
 S3method(display,compare_parameters)
 S3method(display,equivalence_test_lm)
 S3method(display,parameters_brms_meta)
-S3method(display,parameters_distribution)
 S3method(display,parameters_efa)
 S3method(display,parameters_efa_summary)
 S3method(display,parameters_model)
@@ -554,7 +553,6 @@ S3method(plot,n_clusters_hclust)
 S3method(plot,n_clusters_silhouette)
 S3method(plot,n_factors)
 S3method(plot,parameters_brms_meta)
-S3method(plot,parameters_distribution)
 S3method(plot,parameters_efa)
 S3method(plot,parameters_model)
 S3method(plot,parameters_p_function)
@@ -613,7 +611,6 @@ S3method(print_html,parameters_standardized)
 S3method(print_md,compare_parameters)
 S3method(print_md,equivalence_test_lm)
 S3method(print_md,parameters_brms_meta)
-S3method(print_md,parameters_distribution)
 S3method(print_md,parameters_efa)
 S3method(print_md,parameters_efa_summary)
 S3method(print_md,parameters_model)

R/display.R

@@ -212,12 +212,3 @@ display.parameters_pca <- display.parameters_efa
 display.equivalence_test_lm <- function(object, format = "markdown", digits = 2, ...) {
   print_md(x = object, digits = digits, ...)
 }
-
-
-# Other functions ------------------------
-
-
-#' @export
-display.parameters_distribution <- function(object, format = "markdown", digits = 2, ...) {
-  print_md(x = object, digits = digits, ...)
-}

R/plot.R

@@ -40,13 +40,6 @@ plot.n_factors <- function(x, ...) {
 }
 
 
-#' @export
-plot.parameters_distribution <- function(x, ...) {
-  insight::check_if_installed("see")
-  NextMethod()
-}
-
-
 #' @export
 plot.n_clusters <- function(x, ...) {
   insight::check_if_installed("see")

R/print_md.R

@@ -333,23 +333,6 @@ print_md.equivalence_test_lm <- function(x,
 }
 
 
-# distribution print ----------------------------
-
-#' @export
-print_md.parameters_distribution <- function(x, digits = 2, ci_brackets = c("(", ")"), ...) {
-  formatted_table <- format(
-    x = x,
-    digits = digits,
-    format = "markdown",
-    ci_width = NULL,
-    ci_brackets = ci_brackets,
-    ...
-  )
-
-  insight::export_table(formatted_table, format = "markdown", align = "firstleft", ...)
-}
-
-
 # helper -----------------------
 
 .export_table_tt <- function(x, formatted_table, groups, caption = NULL, footer = NULL, outformat = "markdown") {