tests/indent/r/func.R


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

foo <- function(x) {
  bar <- function(a, b, c) {
    return(a + b + c)
  }
  return(
    bar(
      x,
      1,
      2
    )
  )
}

baz <- function(l) {
  inner(l, function(x) {

  })
}