View source: R/elevate_children.R
elevate_children | R Documentation |
elevate all children of a node
elevate_children(parent, remove = TRUE)
parent |
an xml node (notably a block quote) |
remove |
a logical value. If |
the elevated nodes, invisibly
## Not run:
scope <- Episode$new(file.path(lesson_fragment(), "_episodes", "17-scope.md"))
# get all the challenges (2 blocks)
scope$get_blocks(".challenge")
b1 <- scope$get_blocks(".challenge")[[1]]
elevate_children(b1)
# now there is only one block:
scope$get_blocks(".challenge")
## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.