Optimizer: Dead Expression Elimination.

Source: R/opt-dead-expr.R

Performs one dead expression elimination pass. Carefully examine the results after running this function!

opt_dead_expr(texts)

Arguments

texts

A list of character vectors with the code to optimize.

Examples

code <- paste(
  "foo <- function(x) {",
  "  x ^ 3",
  "  return(x ^ 3)",
  "}",
  sep = "\n"
)
cat(opt_dead_expr(list(code))$codes[[1]])

#> foo <- function(x) {
#>   return(x ^ 3)
#> }