Temporarily set some NIMBLE options.
Temporarily set some NIMBLE options.
withNimbleOptions(options, expr)
options |
a list of options suitable for |
expr |
an expression or statement to evaluate. |
expr as evaluated with given options.
## Not run:
if (!(getNimbleOption('showCompilerOutput') == FALSE)) stop()
nf <- nimbleFunction(run = function(){ return(0); returnType(double()) })
cnf <- withNimbleOptions(list(showCompilerOutput = TRUE), {
if (!(getNimbleOption('showCompilerOutput') == TRUE)) stop()
compileNimble(nf)
})
if (!(getNimbleOption('showCompilerOutput') == FALSE)) stop()
## End(Not run)Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.