Remove undesirable_operator_linter() from .lintr_new (#1767)

* Remove `undesirable_operator_linter` from `.lintr_new`

Closes #1766

Add it back once #1692 is resolved

* Update test-settings.R

* remaining

Author: IndrajeetPatil

.lintr_new

@@ -23,7 +23,6 @@ linters: linters_with_defaults(
     redundant_ifelse_linter(),
     sprintf_linter(),
     strings_as_factors_linter(),
-    undesirable_operator_linter(),
     unnecessary_lambda_linter(),
     unneeded_concatenation_linter(allow_single_expression = FALSE),
     yoda_test_linter()

R/expect_lint.R

@@ -84,7 +84,7 @@ expect_lint <- function(content, checks, ..., file = NULL, language = "en") {
     lint_fields <- unique(c(names(formals(Lint)), "linter"))
     Map(
       function(lint, check) {
-        itr <<- itr + 1L # nolint: undesirable_operator.
+        itr <<- itr + 1L
         lapply(names(check), function(field) {
           if (!field %in% lint_fields) {
             stop(sprintf(

R/get_source_expressions.R

@@ -588,7 +588,7 @@ tab_offsets <- function(tab_columns) {
     tab_columns - 1L,
     function(tab_idx) {
       offset <- 7L - (tab_idx + cum_offset) %% 8L # using a tab width of 8 characters
-      cum_offset <<- cum_offset + offset # nolint: undesirable_operator.
+      cum_offset <<- cum_offset + offset
       offset
     },
     integer(1L),

R/lint.R

@@ -667,7 +667,7 @@ highlight_string <- function(message, column_number = NULL, ranges = NULL) {
   line <- fill_with(" ", maximum)
 
   lapply(ranges, function(range) {
-    substr(line, range[1L], range[2L]) <<- fill_with("~", range[2L] - range[1L] + 1L) # nolint: undesirable_operator.
+    substr(line, range[1L], range[2L]) <<- fill_with("~", range[2L] - range[1L] + 1L)
   })
 
   substr(line, column_number, column_number + 1L) <- "^"

R/object_usage_linter.R

@@ -248,7 +248,7 @@ parse_check_usage <- function(expression,
   vals <- list()
 
   report <- function(x) {
-    vals[[length(vals) + 1L]] <<- x # nolint: undesirable_operator.
+    vals[[length(vals) + 1L]] <<- x
   }
 
   withr::with_options(

R/utils.R

@@ -28,8 +28,8 @@ flatten_list <- function(x, class) {
   itr <- 1L
   assign_item <- function(x) {
     if (inherits(x, class)) {
-      res[[itr]] <<- x # nolint: undesirable_operator.
-      itr <<- itr + 1L # nolint: undesirable_operator.
+      res[[itr]] <<- x
+      itr <<- itr + 1L
     } else if (is.list(x)) {
       lapply(x, assign_item)
     }
@@ -174,7 +174,7 @@ read_lines <- function(file, encoding = settings$encoding, ...) {
     readLines(file, warn = TRUE, ...),
     warning = function(w) {
       if (grepl("incomplete final line found on", w$message, fixed = TRUE)) {
-        terminal_newline <<- FALSE # nolint: undesirable_operator.
+        terminal_newline <<- FALSE
         invokeRestart("muffleWarning")
       }
     }

R/zzz.R

@@ -295,7 +295,7 @@ settings <- NULL
     }
   }
 
-  default_settings <<- list( # nolint: undesirable_operator.
+  default_settings <<- list(
     linters = default_linters,
     encoding = "UTF-8",
     exclude = rex::rex("#", any_spaces, "nolint"),
@@ -325,7 +325,7 @@ settings <- NULL
     error_on_lint = logical_env("LINTR_ERROR_ON_LINT") %||% FALSE
   )
 
-  settings <<- list2env(default_settings, parent = emptyenv()) # nolint: undesirable_operator.
+  settings <<- list2env(default_settings, parent = emptyenv())
   invisible()
 }
 # nocov end

tests/testthat/test-settings.R

@@ -1,5 +1,3 @@
-# nolint start: undesirable_operator.
-# This test file tests multiple internal lintr functions, so we need to allow lintr:::*
 test_that("it uses default settings if none provided", {
   lintr:::read_settings(NULL)
 
@@ -121,4 +119,3 @@ test_that("it has a smart default for encodings", {
   lintr:::read_settings(pkg_file)
   expect_identical(settings$encoding, "ISO8859-1")
 })
-# nolint end