Extractions still being linted in unnecessary_lambda_linter() with explicit return

[MichaelChirico]

lint("
  sapply(
    x,
    function(xi) {
      return(foo(xi)$bar)
    }
  )
", unnecessary_lambda_linter())
# <text>:4:5: warning: [unnecessary_lambda_linter] Pass foo directly as a symbol to sapply() instead of wrapping it in an unnecessary anonymous function. For example, prefer lapply(DF, sum) to lapply(DF, function(x) sum(x)).
#     function(xi) {
#     ^~~~~~~~~~~~~~```

[MichaelChirico]

Another test case:

apply(X, 1, function(x) {
  return(sum(x) == 0)
})

[MichaelChirico]

And another:

sapply(
  colnames(data.wide),
  function(nm) {
    return(data[match(nm, data[, by.var]), color.var])
  }
)