default.armd.opts = function(
# packages that define blocks
newline.code = "§NL§",
rmd.modes = c("rmd","tex"),
rtutor = FALSE,
am.type = "shiny",
# section numbering
auto.number = c("chapter", "section", "subsection"),
auto.number.prefix = "",
# slides
slides = identical(am.type,"slides"),
slide.type = "auto",
slide.counter.parent = NULL, # "chapter", "section" or "subsection"
# menu
show.together = "section",
menu.levels = c("section", "subsection"),
toc.levels = c("chapter", "section", "subsection"),
number.levels = NULL,
menu.placement = c("top","fixed"),
nav.levels = c("section","subsection","frame"),
is.shiny = TRUE,
catch.errors = TRUE,
# parameters related to chunk points
e.points = 2,
chunk.preknit = FALSE,
chunk.precomp = FALSE,
chunk.min.points=0,
chunk.points=1,
show.points = TRUE,
# relevant for shiny_chunk
show.line.numbers = TRUE,
check.whitelist = FALSE,
use.secure.eval = FALSE,
noeval = FALSE, # will task_chunks not be evaluated
preknit = FALSE,
presolve = FALSE, # shall tasks be solved at compile time
replace.sol = FALSE,
show.solution.btn=FALSE,
show.data.exp=FALSE,
show.save.btn=FALSE,
in.R.console=FALSE,
# Turn off graphics when checking chunk
use.null.device = TRUE,
verbose = FALSE,
verbose.compile = TRUE,
#chunk.out.args = default.chunk.out.args(),
knit.print.params = default.knit.print.params(),
add.enter.code.here = isTRUE(am.type == "rmd"),
name = "armd",
id = "armd",
hide_title = if (slides) c("section","subsection") else NULL,
offline = FALSE,
inline.images = offline,
need.all.libs = TRUE,
...
) {
args = c(as.list(environment()),list(...))
args
}
default.knit.print.params = function(html.data.frame=TRUE,table.max.rows=40, round.digits=8, signif.digits=8) {
as.list(environment())
}
set.armd.opts = function(opts) {
options(.armd.OPTS=opts)
options(.RTUTOR.OPTS=opts)
}
# Default problem set options
armd.opts = function() {
getOption(".armd.OPTS")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.