diff --git a/R/select_nse.R b/R/select_nse.R index a085a4ce3..766809b6c 100644 --- 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 index 8ee09c0ab..bcaa4e161 100644 --- 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) })