Compute maximum AST nesting depth
Examples
expr <- parse_code("f(g(h(1)))")[[1]]
ast_depth(expr)
#> [1] 3
expr2 <- parse_code("x <- 1")[[1]]
ast_depth(expr2)
#> [1] 1
Compute maximum AST nesting depth
expr <- parse_code("f(g(h(1)))")[[1]]
ast_depth(expr)
#> [1] 3
expr2 <- parse_code("x <- 1")[[1]]
ast_depth(expr2)
#> [1] 1