21.7 Bringing the HTML Together

with_html <- function(code) {
  eval_tidy(enquo(code), html_tags)
}

21.7.1 Main Example

with_html(
  body(
    h1("Pop quiz!", id = "pop_quiz"),
    ol(
      li("What is the ", b("derivative"),  "of $f(x) = 1 + 2cos(3pi x + 4)$?"),
      ol(
        li("$f'(x) = 6pi*sin(3pi x + 4)$"),
        li("$f'(x) = -6pi*sin(3pi x + 4)$"),
        li("$f'(x) = 24pi*sin(3pi x + 4)$"),
        li("$f'(x) = -24pi*sin(3pi x + 4)$")
      )
    ),
    img(src = "images/translating/calculus_cat.png", width = 100, height = 100)
  )
)
#> <HTML> <body><h1 id='pop_quiz'>Pop quiz!</h1><ol><li>What is the
#> <b>derivative</b>of $f(x) = 1 + 2cos(3pi x + 4)$?</li><ol><li>$f'(x) =
#> 6pi*sin(3pi x + 4)$</li><li>$f'(x) = -6pi*sin(3pi x +
#> 4)$</li><li>$f'(x) = 24pi*sin(3pi x + 4)$</li><li>$f'(x) =
#> -24pi*sin(3pi x + 4)$</li></ol></ol><img
#> src='images/translating/calculus_cat.png' width='100' height='100'
#> /></body>

21.7.2 Check

Pop quiz!

  1. What is the derivative of $f(x) = 1 + 2cos(3pi x + 4)$?
    1. $f'(x) = 6pi*sin(3pi x + 4)$
    2. $f'(x) = -6pi*sin(3pi x + 4)$
    3. $f'(x) = 24pi*sin(3pi x + 4)$
    4. $f'(x) = -24pi*sin(3pi x + 4)$