# NOT RUN {
code <- "a <- function(x) { if(x > 1) { 1+1 } else {x} }"
nested_pd <- styler:::compute_parse_data_nested(code)
initialized <- styler:::pre_visit(nested_pd, c(styler:::initialize_attributes))
styler:::create_node_from_nested_root(initialized)
# }
Run the code above in your browser using DataLab