replace_with_div: Replace a blockquote with a div tag

View source: R/div.R

replace_with_divR Documentation

Replace a blockquote with a div tag

Description

This modifies a document to replace a blockquote element with a div element

Usage

replace_with_div(block)

Arguments

block

a blockquote element

Value

the children of the element, invisibly

See Also

Other div: clean_div_tags(), find_between_tags(), find_div_pairs(), get_divs(), label_div_tags(), label_pairs(), make_div(), make_div_pairs()

Examples

frg <- Lesson$new(lesson_fragment())
lop <- frg$episodes$`14-looping-data-sets.md`
xml2::xml_find_all(lop$body, ".//d1:html_block")
lop$get_blocks(level = 1)
lop$get_blocks(level = 2)
purrr::walk(lop$get_blocks(level = 2), pegboard:::replace_with_div)
purrr::walk(lop$get_blocks(level = 1), pegboard:::replace_with_div)
lop$get_blocks()
# add tags
pegboard:::label_div_tags(lop$body)
lop$get_divs()
xml2::xml_text(lop$get_divs()[[1]])

carpentries/pegboard documentation built on Nov. 13, 2024, 8:53 a.m.