styler, lintr

easystats · Dec 13, 2024 · 11036bb · 11036bb
1 parent 7102682
commit 11036bb
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 7 deletions.
diff --git a/R/select_nse.R b/R/select_nse.R
@@ -199,12 +199,11 @@
 
 # small helper, to avoid duplicated code
 .action_if_not_found <- function(
-  x,
-  columns,
-  matches,
-  verbose,
-  ifnotfound
-) {
+    x,
+    columns,
+    matches,
+    verbose,
+    ifnotfound) {
   msg <- paste0(
     "Following variable(s) were not found: ",
     toString(x[is.na(matches)])

diff --git a/tests/testthat/test-data_rename.R b/tests/testthat/test-data_rename.R
@@ -229,5 +229,5 @@ test_that("works with lists", {
   )
   new_names <- c("setosa, a", "versicolor, a")
   out <- data_rename(result, select = names(result), replacement = new_names)
-  expect_identical(names(out), new_names)
+  expect_named(out, new_names)
 })