powered by
Performs one dead expression elimination pass. Carefully examine the results after running this function!
opt_dead_expr(texts)
A list of character vectors with the code to optimize.
# NOT RUN { code <- paste( "foo <- function(x) {", " x ^ 3", " return(x ^ 3)", "}", sep = "\n" ) cat(opt_dead_expr(list(code))$codes[[1]]) # }
Run the code above in your browser using DataLab