update lintr

IndrajeetPatil · Dec 10, 2023 · 65cba17 · 65cba17
1 parent 24b74ac
commit 65cba17
Show file tree

Hide file tree

Showing 3 changed files with 2 additions and 4 deletions.
diff --git 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
@@ -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
@@ -1,4 +1,3 @@
-# creating a new dataset
 morley_new <- dplyr::mutate(
   morley,
   Expt = dplyr::case_when(