Address line length lint

brookslogan · brookslogan · commit 9524643059c9 · 2024-07-17T14:21:35.000-07:00
diff --git a/R/outliers.R b/R/outliers.R
@@ -282,7 +282,8 @@ detect_outlr_stl <- function(x = seq_along(y), y,
   }
   distinct_x_skips <- unique(diff(x))
   if (diff(range(distinct_x_skips)) > 1e-4 * mean(distinct_x_skips)) {
-    cli_abort("`x` does not appear to have regular spacing; consider filling in gaps with imputed values (STL does not allow NAs).")
+    cli_abort("`x` does not appear to have regular spacing; consider filling in
+               gaps with imputed values (STL does not allow NAs).")
   }
   if (is.unsorted(x)) { # <- for performance in common (sorted) case
     o <- order(x)

Original file line number	Diff line number	Diff line change
`@@ -282,7 +282,8 @@ detect_outlr_stl <- function(x = seq_along(y), y,`
`282`	`282`	`}`
`283`	`283`	`distinct_x_skips <- unique(diff(x))`
`284`	`284`	`if (diff(range(distinct_x_skips)) > 1e-4 * mean(distinct_x_skips)) {`
`285`		- cli_abort("`x` does not appear to have regular spacing; consider filling in gaps with imputed values (STL does not allow NAs).")
	`285`	+ cli_abort("`x` does not appear to have regular spacing; consider filling in
	`286`	`+ gaps with imputed values (STL does not allow NAs).")`
`286`	`287`	`}`
`287`	`288`	`if (is.unsorted(x)) { # <- for performance in common (sorted) case`
`288`	`289`	`o <- order(x)`