fix disconnect between filter_collinear and its test

EvolEcolGroup · Oct 4, 2024 · b44ffb8 · b44ffb8
1 parent 8968495
commit b44ffb8
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/filter_collinear.R b/R/filter_collinear.R
@@ -66,7 +66,7 @@ filter_collinear.default <- function(x,
                                     cor_type = "pearson",
                                     max_cells = Inf,
                                     ...) {
-  stop("no method available for class object type: ", paste(class(x), collapse = " "))
+  stop("no method available for this object type")
 }
 
 #' @rdname filter_collinear

diff --git a/tests/testthat/test_filter_collinear.R b/tests/testthat/test_filter_collinear.R
@@ -34,7 +34,7 @@ test_that("filter collinear variables with cor_caret", {
   # error for defautl object
   expect_error(
     filter_collinear("blah"),
-    "^no method available for this object type"
+    "no method available for this object type"
   )
 
   # sample from data.frame