Simplify ad-hoc lapply with simpler apply() when we can (R>4.1.0)

[MichaelChirico]

The loop here:

lintr/R/indentation_linter.R

Lines 297 to 302 in 72eeefd

	ranges = lapply(
	seq_along(bad_lines),
	function(i) {
	list(lint_ranges[i, ])
	}
	)

Can be replaced with ranges = apply(lint_ranges, 1L, list, simplify = FALSE) per @AshesITR.