fix lints with flint

.Rbuildignore

@@ -24,3 +24,7 @@ tests\^spelling
 ^WIP/.
 \.code-workspace$
 ^CRAN-SUBMISSION$
+
+
+# flint files
+^flint$

R/cite_easystats.R

@@ -83,11 +83,11 @@
       "performance", "parameters",
       "see"
     ) %in% packages)
     if (sum(letters_ludeckePackages != "") == 1) {
       letters_ludeckePackages <- rep("", length(letters_ludeckePackages))
     }
     letters_ludeckeArticles <- .disamguation_letters(c("performance", "see") %in% packages)
     if (sum(letters_ludeckeArticles != "") == 1) {
       letters_ludeckeArticles <- rep("", length(letters_ludeckeArticles))
     }
     letters_makowskiPackages <- .disamguation_letters(c(
@@ -95,7 +95,7 @@
       "correlation", "modelbased",
       "report"
     ) %in% packages)
     if (sum(letters_makowskiPackages != "") == 1) {
       letters_makowskiPackages <- rep("", length(letters_makowskiPackages))
     }
     easystats <- "_easystats_"
@@ -185,7 +185,7 @@
             "easystats: Streamline model interpretation, visualization, and reporting%s [R package].",
             "https://easystats.github.io/easystats/ (Original work published 2019)"
           ),
           ifelse(installed_packages["easystats"] == "", "", paste0(" (", installed_packages["easystats"], ")"))
         ),
         insight = c(
           article = paste(
@@ -345,10 +345,10 @@
       ref_packages[-c(1:2, length(ref_packages))],
       ref_packages[length(ref_packages)]
     )
     ref_packages[[2]] <- split(ref_packages[[2]], cumsum(ref_packages[[2]] == ""))
-    ref_packages.index <- grep(paste0("id: ((", paste0(packages, collapse = ")|("), "))"), ref_packages[[2]])
+    ref_packages.index <- grep(paste0("id: ((", paste(packages, collapse = ")|("), "))"), ref_packages[[2]])
     ref_packages[[2]] <- unlist(ref_packages[[2]][ref_packages.index], use.names = FALSE)
-    ref_packages <- paste0(unlist(ref_packages, use.names = FALSE), collapse = "\n")
+    ref_packages <- paste(unlist(ref_packages, use.names = FALSE), collapse = "\n")
   } else {
     ref_packages <- readLines(system.file("easystats_bib.bib", package = "report"))
     ref_packages[ref_packages == "  version = {%s}"] <- sprintf(
@@ -362,13 +362,13 @@
         installed_packages["see"]
       )
     )
     ref_packages <- split(ref_packages, cumsum(ref_packages == ""))
     ref_packages.index <- grep(paste0(
       "((article)|(software))\\{((",
-      paste0(packages, collapse = ")|("), "))"
+      paste(packages, collapse = ")|("), "))"
     ), ref_packages)
     ref_packages <- unlist(ref_packages[ref_packages.index], use.names = FALSE)
-    ref_packages <- paste0(unlist(ref_packages, use.names = FALSE), collapse = "\n")
+    ref_packages <- paste(unlist(ref_packages, use.names = FALSE), collapse = "\n")
   }
 
 
@@ -393,7 +393,7 @@
     bib = ,
     refs = "refs"
   )
   if (what == "all") {
     insight::print_colour("\nCitations\n----------\n\n", "blue")
     cat(strwrap(object$intext, exdent = 0, width = 0.95 * getOption("width")), sep = "\n")
     cat("\n")
@@ -436,6 +436,6 @@
   }
   count <- sum(x)
   x[!x] <- ""
   x[x != ""] <- letters[seq_len(count)]
   x
 }

R/format_formula.R

@@ -18,5 +18,5 @@
 #' @export
 format_formula <- function(x, what = "conditional") {
   f <- insight::safe_deparse(insight::find_formula(x, verbose = FALSE)[[what]])
-  paste0("formula: ", paste0(f, collapse = " + "))
+  paste0("formula: ", paste(f, collapse = " + "))
 }

R/report.bayesfactor_models.R

@@ -303,7 +303,7 @@ report_text.bayesfactor_inclusion <- function(x,
   bf_text <- paste0(
     "Bayesian model averaging (BMA) was used to obtain the average evidence ",
     "for each predictor. We found ",
-    paste0(
+    paste(
       paste0(bf_results$evidence, " including ", bf_results$Term),
       collapse = "; "
     ), "."
@@ -349,7 +349,7 @@ report_text.bayesfactor_inclusion <- function(x,
     bf_explain,
     paste0(
       "We found ",
-      paste0(
+      paste(
         paste0(
           bf_results$evidence, " including ", bf_results$Term,
           ", with models including ", bf_results$Term,

R/report.character.R

@@ -133,7 +133,7 @@ report_text.character <- function(x,
     ...
   )
 
-  text <- paste0(summary(params), collapse = "; ")
+  text <- paste(summary(params), collapse = "; ")
   if (nrow(entries) > 1) {
     text <- paste0(name, ": ", nrow(entries), " entries, such as ", text)
   } else {
@@ -198,5 +198,5 @@ report_statistics.character <- function(x,
     text <- paste0(entries$Entry, ", n = ", entries$n_Entry)
   }
 
-  as.report_statistics(paste0(text, collapse = "; "), summary = paste0(text[1:n_entries], collapse = "; "))
+  as.report_statistics(paste(text, collapse = "; "), summary = paste(text[1:n_entries], collapse = "; "))
 }

R/report.estimate_contrasts.R

@@ -46,7 +46,7 @@ report_text.estimate_contrasts <- function(x, table = NULL, ...) {
     collapse = ". "
   )
 
-  text <- paste("The marginal contrasts analysis suggests the following.", paste0(text, collapse = ""))
+  text <- paste("The marginal contrasts analysis suggests the following.", paste(text, collapse = ""))
 
   as.report_text(text)
 }

R/report.factor.R

@@ -172,7 +172,7 @@ report_statistics.factor <- function(x, table = NULL, levels_percentage = "auto"
     )
   }
 
-  as.report_statistics(paste0(text_full, collapse = "; "), summary = paste0(text, collapse = "; "))
+  as.report_statistics(paste(text_full, collapse = "; "), summary = paste(text, collapse = "; "))
 }
 
 #' @export

R/report.stanreg.R

@@ -80,7 +80,7 @@ report_priors.stanreg <- function(x, ...) {
     )
   )
 
-  values <- paste0(values, collapse = "; ")
+  values <- paste(values, collapse = "; ")
   values <- paste0(params$Prior_Distribution, " (", values, ")")
 
   if (length(unique(values)) == 1 && nrow(params) > 1) {

R/report_effectsize.R

@@ -79,7 +79,7 @@
     cat(attributes(x)$rules, "\n\n")
   }
 
-  cat(paste0(x, collapse = "\n"))
+  cat(paste(x, collapse = "\n"))
 }
 
 
@@ -90,9 +90,9 @@
 .text_effectsize <- function(interpretation) {
   # Effect size
   if (is.null(interpretation)) {
     text <- ""
   } else {
     if (is.character(interpretation)) {
       effsize_name <- switch(interpretation,
         cohen1988 = "Cohen's (1988)",
         sawilowsky2009 = "Savilowsky's (2009)",

R/report_info.R

@@ -73,7 +73,7 @@ summary.report_info <- function(object, ...) {
 
 #' @export
 print.report_info <- function(x, ...) {
-  cat(paste0(x, collapse = "\n"))
+  cat(paste(x, collapse = "\n"))
 }
 
 

R/report_intercept.R

@@ -67,7 +67,7 @@ summary.report_intercept <- function(object, ...) {
 
 #' @export
 print.report_intercept <- function(x, ...) {
-  cat(paste0(x, collapse = "\n"))
+  cat(paste(x, collapse = "\n"))
 }
 
 

R/report_model.R

@@ -73,5 +73,5 @@ summary.report_model <- function(object, ...) {
 
 #' @export
 print.report_model <- function(x, ...) {
-  cat(paste0(x, collapse = "\n"))
+  cat(paste(x, collapse = "\n"))
 }

R/report_parameters.R

@@ -84,7 +84,7 @@ as.character.report_parameters <- function(x, prefix = NULL, ...) {
 
   # Concatenate
   text <- paste0(prefix, x)
-  text <- paste0(text, collapse = "\n")
+  text <- paste(text, collapse = "\n")
   text
 }
 
@@ -125,7 +125,7 @@ print.report_parameters <- function(x, ...) {
     # Interaction
     if (grepl(" * ", names[i], fixed = TRUE)) {
       parts <- unlist(strsplit(names[i], " * ", fixed = TRUE))
-      basis <- paste0(utils::head(parts, -1), collapse = " * ")
+      basis <- paste(utils::head(parts, -1), collapse = " * ")
       names[i] <- paste0("The interaction effect of ", utils::tail(parts, 1), " on ", basis)
 
       # Intercept

R/report_priors.R

@@ -52,5 +52,5 @@ summary.report_priors <- function(object, ...) {
 
 #' @export
 print.report_priors <- function(x, ...) {
-  cat(paste0(x, collapse = "\n"))
+  cat(paste(x, collapse = "\n"))
 }

R/report_random.R

@@ -74,5 +74,5 @@ summary.report_random <- function(object, ...) {
 
 #' @export
 print.report_random <- function(x, ...) {
-  cat(paste0(x, collapse = "\n"))
+  cat(paste(x, collapse = "\n"))
 }

R/report_statistics.R

@@ -76,5 +76,5 @@ summary.report_statistics <- summary.report_parameters
 
 #' @export
 print.report_statistics <- function(x, ...) {
-  cat(paste0(x, collapse = "\n"))
+  cat(paste(x, collapse = "\n"))
 }