Use simpler apply() approach (#2990)

Author: MichaelChirico

R/indentation_linter.R

@@ -314,13 +314,7 @@ indentation_linter <- function(indent = 2L, hanging_indent_style = c("tidy", "al
       type = "style",
       message = lint_messages,
       line = unname(source_expression$file_lines[bad_lines]),
-      # TODO(#2467): Use ranges = apply(lint_ranges, 1L, list, simplify = FALSE).
-      ranges = lapply(
-        seq_along(bad_lines),
-        function(i) {
-          list(lint_ranges[i, ])
-        }
-      )
+      ranges = apply(lint_ranges, 1L, list, simplify = FALSE)
     )
   })
 }