## -----------------------------------------------------------------------------
#| include: false
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

library(parsermd)


## -----------------------------------------------------------------------------
(rmd = parse_rmd(system.file("examples/hw01.Rmd", package = "parsermd")))


## -----------------------------------------------------------------------------
rmd_select(
  rmd, 
  by_section(c("Exercise 1", "Solution")) & 
  has_type("rmd_markdown")
) |>
  as_document()


## -----------------------------------------------------------------------------
(rmd_sols = rmd_select(rmd, by_section(c("Exercise *", "Solution"))))


## -----------------------------------------------------------------------------
(rmd_tmpl = rmd_template(rmd_sols, keep_content = TRUE))


## -----------------------------------------------------------------------------
file = system.file("examples/hw01-student.Rmd", package = "parsermd")
rmd_check_template(file, rmd_tmpl)


## -----------------------------------------------------------------------------
rmd_sols |>
  rmd_select( 
    !(by_section(c("Exercise 3", "Solution")) & 
    has_type("rmd_markdown")) 
  )


## -----------------------------------------------------------------------------
file = system.file("examples/hw01-student.Rmd", package = "parsermd")
rmd_sols |>
  rmd_select( 
    !(by_section(c("Exercise 3", "Solution")) & 
    has_type("rmd_markdown")) 
  ) |>
  rmd_template(keep_content = TRUE) |>
  rmd_check_template(file, template = _)