lintr

R/find_formula.R

@@ -536,7 +536,7 @@ find_formula.afex_aov <- function(x, verbose = TRUE, ...) {
       between <- as.character(tempf)[3]
       between <- paste0("(", between, ")")
 
-      within_variables <- paste0(c(within_variables, between), collapse = "*")
+      within_variables <- paste(c(within_variables, between), collapse = "*")
     }
 
     out <- list(conditional = stats::formula(paste0(dv, "~", within_variables, "+", e)))
@@ -1704,7 +1704,7 @@ find_formula.model_fit <- function(x, verbose = TRUE, ...) {
       if (as.character(zi.form[2]) == ".") {
         resp <- safe_deparse(c.form[2])
         pred <- setdiff(colnames(.recover_data_from_environment(x)), resp)
-        zi.form <- stats::as.formula(paste(resp, "~", paste0(pred, collapse = " + ")))
+        zi.form <- stats::as.formula(paste(resp, "~", paste(pred, collapse = " + ")))
       }
       zi.form
     },
@@ -1729,7 +1729,7 @@ find_formula.model_fit <- function(x, verbose = TRUE, ...) {
       if (as.character(f[[3]])[1] == ".") {
         resp <- safe_deparse(f[[2]])
         pred <- setdiff(colnames(.recover_data_from_environment(model)), resp)
-        f <- stats::as.formula(paste(resp, "~", paste0(pred, collapse = " + ")))
+        f <- stats::as.formula(paste(resp, "~", paste(pred, collapse = " + ")))
       }
       f
     },

R/find_statistic.R

@@ -342,7 +342,7 @@ find_statistic <- function(x, ...) {
     }
 
     if (any(chi_names %in% col_names)) {
-      return("chi-squared statistic")
+      "chi-squared statistic"
     }
   }
 }

R/get_df.R

@@ -379,7 +379,7 @@ get_df.mediate <- function(x, ...) {
     return(Inf)
   }
 
-  return(n - nparam)
+  n - nparam
 }