lintr::lint(
  text = "lapply(l, function(x) rle(x)$values)",
  linters = lintr::unnecessary_lambda_linter()
)
#> <text>:1:11: warning: [unnecessary_lambda_linter] Pass rle directly as a symbol to lapply() instead of wrapping it in an unnecessary anonymous function. For example, prefer lapply(DF, sum) to lapply(DF, function(x) sum(x)).
#> lapply(l, function(x) rle(x)$values)
#>           ^~~~~~~~~~~~~~~~~~~~~~~~

lintr::lint(
  text = "lapply(l, function(x) rle(x)[['values']])",
  linters = lintr::unnecessary_lambda_linter()
)
#> <text>:1:11: warning: [unnecessary_lambda_linter] Pass rle directly as a symbol to lapply() instead of wrapping it in an unnecessary anonymous function. For example, prefer lapply(DF, sum) to lapply(DF, function(x) sum(x)).
#> lapply(l, function(x) rle(x)[['values']])
#>           ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~