fix print

strengejacke · strengejacke · commit dd5246bb08a3 · 2024-12-04T08:44:58.000+01:00
diff --git a/R/check_outliers.R b/R/check_outliers.R
@@ -903,6 +903,7 @@ check_outliers.data.frame <- function(x,
   valid <- method
   if("optics" %in% valid) {
     valid <- c(valid, "optics_xi")
+    method <- c(method, "optics_xi")
   }
   thresholds <- thresholds[names(thresholds) %in% valid]
 

Original file line number	Diff line number	Diff line change
`@@ -903,6 +903,7 @@ check_outliers.data.frame <- function(x,`
`903`	`903`	`valid <- method`
`904`	`904`	`if("optics" %in% valid) {`
`905`	`905`	`valid <- c(valid, "optics_xi")`
	`906`	`+ method <- c(method, "optics_xi")`
`906`	`907`	`}`
`907`	`908`	`thresholds <- thresholds[names(thresholds) %in% valid]`
`908`	`909`