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

opt_dead_code(texts)

Arguments

texts

A list of character vectors with the code to optimize.

Examples

code <- paste( "while (TRUE) {", " break", " dead_code()", "}", sep = "\n" ) cat(opt_dead_code(list(code))$codes[[1]])
#> while (TRUE) { #> break #> }