diff --git a/.lintr b/.lintr
index 843f5e622..b46e0047c 100644
--- a/.lintr
+++ b/.lintr
@@ -3,7 +3,6 @@ linters: linters_with_defaults(
     assignment_linter = NULL,
     commented_code_linter = NULL,
     cyclocomp_linter(25L),
-    extraction_operator_linter = NULL,
     if_not_else_linter(exceptions = character(0L)),
     implicit_integer_linter = NULL,
     library_call_linter = NULL,
diff --git a/R/utils.R b/R/utils.R
index 3e899c628..6733102c5 100644
--- a/R/utils.R
+++ b/R/utils.R
@@ -34,8 +34,8 @@
 #' @keywords internal
 .is_palette_sufficient <- function(package, palette, min_length) {
   palette_length <- paletteer::palettes_d_names %>%
-    filter(package == !!package, palette == !!palette) %$%
-    length[[1L]]
+    filter(package == !!package, palette == !!palette) %>%
+    purrr::pluck("length")
 
   are_enough_colors_available <- palette_length > min_length
 
diff --git a/tests/testthat/test-ggdotplotstats.R b/tests/testthat/test-ggdotplotstats.R
index 24f50e9e3..261034cdb 100644
--- a/tests/testthat/test-ggdotplotstats.R
+++ b/tests/testthat/test-ggdotplotstats.R
@@ -1,4 +1,3 @@
-# creating a new dataset
 morley_new <- dplyr::mutate(
   morley,
   Expt = dplyr::case_when(