Fix a couple of lints (#469)

* init * document, styler --------- Co-authored-by: Daniel <[email protected]> Co-authored-by: Rémi Thériault <[email protected]>
easystats · Dec 10, 2024 · 084ed2e · 084ed2e
1 parent 278d9f6
commit 084ed2e
Show file tree

Hide file tree

Showing 29 changed files with 10 additions and 86 deletions.
diff --git a/R/report.BFBayesFactor.R b/R/report.BFBayesFactor.R
@@ -63,7 +63,6 @@ report.BFBayesFactor <- function(x, h0 = "H0", h1 = "H1", ...) {
 }
 
 
-
 #' @rdname report.BFBayesFactor
 #' @export
 report_statistics.BFBayesFactor <- function(x, table = NULL, ...) {

diff --git a/R/report.R b/R/report.R
@@ -141,7 +141,6 @@ as.report <- function(text, table = NULL, plot = NULL, ...) {
 }
 
 
-
 #' @rdname as.report
 #' @export
 is.report <- function(x) inherits(x, "report")
diff --git a/R/report.aov.R b/R/report.aov.R
@@ -83,7 +83,6 @@ report_effectsize.aov <- function(x, ...) {
   parameters <- paste0(interpretation, " (", statistics, ")")
 
 
-
   as.report_effectsize(parameters,
     summary = parameters,
     table = table,
@@ -211,9 +210,6 @@ report_statistics.anova <- report_statistics.aov
 report_statistics.aovlist <- report_statistics.aov
 
 
-
-
-
 # report_parameters ------------------------------------------------------------
 
 
@@ -319,7 +315,6 @@ report_info.anova <- report_info.aov
 report_info.aovlist <- report_info.aov
 
 
-
 # report_text ------------------------------------------------------------
 
 #' @rdname report.aov

diff --git a/R/report.bayesfactor_models.R b/R/report.bayesfactor_models.R
@@ -99,7 +99,6 @@ report_text.bayesfactor_models <- function(x,
 }
 
 
-
 #' @keywords internal
 .report.bayesfactor_models <- function(model,
                                        interpretation = "jeffreys1961",
@@ -211,7 +210,6 @@ report_text.bayesfactor_models <- function(x,
 }
 
 
-
 # bayesfactor_inclusion ---------------------------------------------------
 
 #' @rdname report.bayesfactor_models

diff --git a/R/report.brmsfit.R b/R/report.brmsfit.R
@@ -53,7 +53,6 @@ report_text.brmsfit <- report_text.lm
 # ==================== Specific to Bayes ===================================
 
 
-
 # report_priors -----------------------------------------------------------
 
 #' @export

diff --git a/R/report.character.R b/R/report.character.R
@@ -25,13 +25,9 @@ report.character <- function(x,
 }
 
 
-
-
-
 # report_table ------------------------------------------------------------
 
 
-
 #' @export
 report_table.character <- function(x,
                                    n_entries = 3,
@@ -68,7 +64,6 @@ report_table.character <- function(x,
 }
 
 
-
 # report_parameters -------------------------------------------------------
 
 #' @export
@@ -102,7 +97,6 @@ report_parameters.character <- function(x,
 }
 
 
-
 # report_text -------------------------------------------------------------
 
 #' @export
@@ -175,7 +169,6 @@ report_text.character <- function(x,
 }
 
 
-
 # report_statistics -------------------------------------------------------
 
 

diff --git a/R/report.data.frame.R b/R/report.data.frame.R
@@ -100,7 +100,6 @@ report.data.frame <- function(x,
 # report_table ------------------------------------------------------------
 
 
-
 #' @export
 report_table.data.frame <- function(x,
                                     n = FALSE,
@@ -178,12 +177,9 @@ report_table.data.frame <- function(x,
 }
 
 
-
-
 # report_parameters -------------------------------------------------------
 
 
-
 #' @export
 report_parameters.data.frame <- function(x,
                                          table = NULL,
@@ -224,7 +220,6 @@ report_parameters.data.frame <- function(x,
 }
 
 
-
 # report_text -------------------------------------------------------------
 
 #' @export
@@ -272,7 +267,6 @@ report_text.data.frame <- function(x,
 }
 
 
-
 # report_statistics -------------------------------------------------------
 
 
@@ -401,8 +395,6 @@ report_table.grouped_df <- function(x,
 }
 
 
-
-
 #' @export
 report_parameters.grouped_df <- function(x,
                                          table = NULL,
@@ -494,7 +486,6 @@ report_text.grouped_df <- function(x,
 report.grouped_df <- report.data.frame
 
 
-
 #' @export
 report_statistics.grouped_df <- function(x,
                                          table = NULL,
@@ -538,12 +529,6 @@ report_statistics.grouped_df <- function(x,
 }
 
 
-
-
-
-
-
-
 # Utils -------------------------------------------------------------------
 
 #' @keywords internal

diff --git a/R/report.factor.R b/R/report.factor.R
@@ -20,7 +20,6 @@ report.Date <- report.factor
 # report_table ------------------------------------------------------------
 
 
-
 #' @export
 report_table.factor <- function(x, levels_percentage = "auto", ...) {
   if (!is.factor(x)) {
@@ -56,7 +55,6 @@ report_table.Date <- report_table.factor
 # report_parameters -------------------------------------------------------
 
 
-
 #' @export
 report_parameters.factor <- function(x, table = NULL, levels_percentage = "auto", ...) {
   if (!is.factor(x)) {
@@ -140,7 +138,6 @@ report_text.logical <- report_text.factor
 report_text.Date <- report_text.factor
 
 
-
 # report_statistics -------------------------------------------------------
 
 

diff --git a/R/report.lavaan.R b/R/report.lavaan.R
@@ -34,7 +34,6 @@ report.lavaan <- function(x, ...) {
 }
 
 
-
 #' @export
 report_table.lavaan <- function(x, ...) {
   parameters <- parameters::model_parameters(x, ci_random = FALSE, ...)
@@ -80,7 +79,6 @@ report_table.lavaan <- function(x, ...) {
 }
 
 
-
 #' @rdname report.lavaan
 #' @export
 report_performance.lavaan <- function(x, table = NULL, ...) {

diff --git a/R/report.lm.R b/R/report.lm.R
@@ -65,7 +65,6 @@ report.lm <- function(x, include_effectsize = TRUE, effectsize_method = "refit",
 }
 
 
-
 # report_effectsize -------------------------------------------------------
 
 #' @rdname report.lm
@@ -124,7 +123,6 @@ report_effectsize.lm <- function(x, effectsize_method = "refit", ...) {
 }
 
 
-
 # report_table ------------------------------------------------------------
 
 
@@ -278,7 +276,6 @@ report_statistics.lm <- function(x,
 }
 
 
-
 # report_statistics ------------------------------------------------------------
 
 #' @rdname report.lm
@@ -475,7 +472,6 @@ report_performance.lm <- function(x, table = NULL, ...) {
 }
 
 
-
 # report_info ------------------------------------------------------------
 
 #' @rdname report.lm
@@ -518,7 +514,6 @@ report_info.lm <- function(x,
 }
 
 
-
 # report_text ------------------------------------------------------------
 
 #' @rdname report.lm

diff --git a/R/report.numeric.R b/R/report.numeric.R
@@ -51,7 +51,6 @@ report.numeric <- function(x,
 }
 
 
-
 # report_table ------------------------------------------------------------
 
 #' @export
@@ -132,8 +131,6 @@ report_table.numeric <- function(x,
 }
 
 
-
-
 # report_parameters -------------------------------------------------------
 
 #' @export
@@ -258,7 +255,6 @@ report_parameters.numeric <- function(x,
 }
 
 
-
 # report_text -------------------------------------------------------------
 
 #' @export

diff --git a/R/report.sessionInfo.R b/R/report.sessionInfo.R
@@ -37,7 +37,6 @@ report.sessionInfo <- function(x, ...) {
 }
 
 
-
 # Aliases -----------------------------------------------------------------
 
 
@@ -67,7 +66,6 @@ cite_packages <- function(session = NULL, include_R = TRUE, ...) {
 }
 
 
-
 # report_system --------------------------------------------------------------
 
 
@@ -104,7 +102,6 @@ report_system <- function(session = NULL) {
 }
 
 
-
 # report_table ------------------------------------------------------------
 
 #' @export
@@ -141,7 +138,6 @@ report_table.sessionInfo <- function(x, include_R = TRUE, ...) {
 }
 
 
-
 # report_parameters -------------------------------------------------------
 
 #' @export
@@ -179,7 +175,6 @@ report_parameters.sessionInfo <- function(x, table = NULL, include_R = TRUE, ...
 }
 
 
-
 # report_text -------------------------------------------------------------
 
 #' @export

diff --git a/R/report_effectsize.R b/R/report_effectsize.R
@@ -83,11 +83,9 @@ print.report_effectsize <- function(x, ...) {
 }
 
 
-
 # Utilities ---------------------------------------------------------------
 
 
-
 #' @keywords internal
 .text_effectsize <- function(interpretation) {
   # Effect size

diff --git a/R/report_htest_cor.R b/R/report_htest_cor.R
@@ -24,7 +24,6 @@
 }
 
 
-
 # report_effectsize ---------------------
 
 .report_effectsize_correlation <- function(x, table, dot_args) {

diff --git a/R/report_info.R b/R/report_info.R
@@ -46,7 +46,6 @@ report_info <- function(x, ...) {
 }
 
 
-
 # METHODS -----------------------------------------------------------------
 
 
@@ -78,7 +77,6 @@ print.report_info <- function(x, ...) {
 }
 
 
-
 # Utils -------------------------------------------------------------------
 
 #' @keywords internal

diff --git a/R/report_intercept.R b/R/report_intercept.R
@@ -99,7 +99,6 @@ print.report_intercept <- function(x, ...) {
 }
 
 
-
 .find_reference_level <- function(f) {
   tryCatch(
     {

diff --git a/R/report_misc.R b/R/report_misc.R
@@ -22,7 +22,6 @@ report_date <- function(...) {
 }
 
 
-
 #' @rdname report_date
 #' @export
 report_story <- function(...) {

diff --git a/R/report_model.R b/R/report_model.R
@@ -46,7 +46,6 @@ report_model <- function(x, table = NULL, ...) {
 }
 
 
-
 # METHODS -----------------------------------------------------------------
 
 

diff --git a/R/report_parameters.R b/R/report_parameters.R
@@ -104,7 +104,6 @@ print.report_parameters <- function(x, ...) {
 }
 
 
-
 # Utils -------------------------------------------------------------------
 
 #' @keywords internal
@@ -158,7 +157,6 @@ print.report_parameters <- function(x, ...) {
 }
 
 
-
 #' @keywords internal
 .parameters_diagnostic_bayesian <- function(diagnostic, only_when_insufficient = FALSE, ...) {
   # Convergence
-Original file line number
+Diff line change
@@ Expand Up @@
     }
     #' @rdname report.BFBayesFactor
     #' @export
     report_statistics.BFBayesFactor <- function(x, table = NULL, ...) {
@@ Expand Down @@
Original file line number	Diff line number	Diff line change
Expand Up		@@ -53,7 +53,6 @@ report_text.brmsfit <- report_text.lm
		# ==================== Specific to Bayes ===================================



		# report_priors -----------------------------------------------------------

		#' @export
Expand Down
Original file line number	Diff line number	Diff line change
Expand Up		@@ -24,7 +24,6 @@
		}



		# report_effectsize ---------------------

		.report_effectsize_correlation <- function(x, table, dot_args) {
Expand Down
Original file line number	Diff line number	Diff line change
Expand Up		@@ -46,7 +46,6 @@ report_model <- function(x, table = NULL, ...) {
		}



		# METHODS -----------------------------------------------------------------


Expand Down