Extract the code corresponding to one or several nodes

Those functions extract the code corresponding to the node(s):

• node_text() applies on a single node, for example the output of node_get_match()

• node_text_all() applies on a list of nodes, for example the output of node_get_multiple_matches()

Usage

node_text(x)

node_text_all(x)

Arguments

x

A node, either from tree_root() or from another node_*() function.

Examples

src <- "x <- rnorm(100, mean = 2)
    any(duplicated(y))
    plot(mtcars)
    any(duplicated(x))"

root <- src |>
  tree_new() |>
  tree_root()

# node_text() must be applied on single nodes
root |>
  node_find(ast_rule(pattern = "plot($A)")) |>
  node_text()
#> $rule_1
#> [1] "plot(mtcars)"
#> 

# node_find_all() returns a list on nodes on which
# we can use node_text_all()
root |>
  node_find_all(ast_rule(pattern = "any(duplicated($A))")) |>
  node_text_all()
#> $rule_1
#> $rule_1$node_1
#> [1] "any(duplicated(y))"
#> 
#> $rule_1$node_2
#> [1] "any(duplicated(x))"
#> 
#>