Merge pull request #1028 from IndrajeetPatil/code_cleanup_oct

Clean up a few more lints

Author: IndrajeetPatil

R/addins.R

@@ -75,7 +75,7 @@ style_active_file <- function() {
     paste0(ensure_last_n_empty(out), collapse = "\n"),
     id = context$id
   )
-  if (save_after_styling_is_active() == TRUE && context$path != "") {
+  if (save_after_styling_is_active() && context$path != "") {
     rstudioapi::documentSave(context$id)
   }
   rstudioapi::setCursorPosition(context$selection[[1L]]$range)
@@ -138,7 +138,7 @@ style_selection <- function() {
     ), collapse = "\n"),
     id = context$id
   )
-  if (save_after_styling_is_active() == TRUE && context$path != "") {
+  if (save_after_styling_is_active() && context$path != "") {
     invisible(rstudioapi::documentSave(context$id))
   }
 }

R/stylerignore.R

@@ -112,7 +112,7 @@ apply_stylerignore <- function(flattened_pd) {
   # cannot rely on flattened_pd$text == option_read("styler.ignore_start")
   # because if the marker logic is not correct (twice off in a row), we'll
   # get it wrong.
-  to_ignore <- flattened_pd$stylerignore == TRUE
+  to_ignore <- flattened_pd$stylerignore
   not_first <- flattened_pd$stylerignore == lag(
     flattened_pd$stylerignore,
     default = FALSE