View source: R/opt-dead-store.R
opt_dead_store | R Documentation |
Performs one dead store elimination pass. Carefully examine the results after running this function!
opt_dead_store(texts)
texts |
A list of character vectors with the code to optimize. |
code <- paste(
"foo <- function() {",
" x <- 128 ^ 2",
" return(TRUE)",
"}",
sep = "\n"
)
cat(opt_dead_store(list(code))$codes[[1]])
code <- paste(
"sinpi <- function() {",
" pi <- 3.1415",
" e <- 2.718",
" phi <- 1.618",
" sin(pi)",
"}",
sep = "\n"
)
cat(opt_dead_store(list(code))$codes[[1]])
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.